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Programma’s voor diskdrive(s): INDEX-2 

HET VERLATEN KERKHOF SPEED (sector) COPY 

DISK CATALOG 


ALIEN ATTACK 


DE KAART VAN ELIDON!!! 

MSX-gids software nu ook op diskette! 
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NIEUWE TITELS IN ONS ASSORTMENT : 

GAMES 
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GEBRUIKSPROGRAWIA,S 

OPEN VAN 10.00 tot 18.00 
Maandag van 13.00 tot 18.00 
Koopavond tot 21.00 

BATTLE- FOR MIDWAY 

FL 45,- 

mt TELCOM MODEM EN SOFTWARE fl 699,- 

MUTANT MONTY 

FL 35,- 

WIE WAT DISK 2 

fl 449,- 

THE BOSS 

fl 35,- 

WAT WAAR DISK 2 

fl 449,- 

THE WAV OF THE TIGER 

fl 39,- 

WORDPROCESSOR 

fl 195,- 

SPACE RESQUE 

fl 25,- 

SPREADSHEET 

fl 195,- 

WORDSTORE DISK 

fl 69,- 

ML BASE 2 

fl 199,- 

FLIGHTDECK DISK 

fl 69,50 

PRESTO (database) 

fl 199,- 

NORTHSEA HELICOPTER DISK 

fl 69,50 

TASWORD 2 

fl 95,- 

GUNFRIGHT 

fl 45,- 

FINAD 

fl 299,- 

OILSWELL 

fl 45,- 

MSX DOS 

fl 159,- 

TIMECURB 

fl 45,- 

ZEN 

fl 95,- 


AAAA****** AA A****>U****AAA A9U - *A)U*A A* * ********** *** ** * ****** A******** * ** ** ** ******* ** * ***** ** * * *** * * * ★★★*★*★★*★ 


LET OP MET INGANG VAN 1 MEI HEEFT ONZE POSTORDER AFDELING EEN EIGEN RAND GEOPEND , HET ADRES IS: 

VAN KINSBERGEN STRAAT 62 1057 PT AMSTERDAM TELEFOON 020-183001 
U KUNT UW BESTELLINGEN OPGEVEN VAN MAANDAG TOT VRIJDAG TUSSEN 10.00 en 14.00 
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WIJ HEBBEN HET GROOTSTE ASSORTMENT MSX SOFTWARE EN BOEKEN IN VOORRAAD . 

RUIM 300 software titels en 95 boektitels kunt u bij ons vinden . 

TEVENS VERZORGEN WIJ DEMONSTRATES EN KUNT U EIGEN GEMAAKTE PROGRAMMA,S OP ONZE PRINTER UIT LATEN 
PRINTEN .OOK GEVEN WIJ ADVIES OVER HARDWARE EN HEBBEN WIJ DIVERSE DOKUMENTATIE VOORHANDEN. 
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NIEUW IS ONZE AFDELING OPLEIDING HIER KUNT U TERECKT VOOR OPLEIDINGEN OP DIVERS GEBIED O.A 
Basictrainina - machinetaal - Wordstar - - etc 

VOOR INLICHTINGEN KUNT U BELLEN NAAR 020 -183001 

DE KOSTEN VOOR DEZE OPLEIDINGEN BEDRAGEN FL 20,= per uur EN WORDEN DOOR VAKBEKWAME PROGRAMEURS 
VERZORGT . DE LESAVONDEN ZIJN GEPLAND OP DE MAANDAGAVONDEN . 
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HEEFT U VRAGEN OVER HARDWARE OF SOFTWARE ? , BEL ONS EN WIJ ZULLEN PROBREREN CM ZE VOOR U TE 
BEANTWOORDEN . 020-123206 of 020-183001 
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MSX "SOFTPOST 11 
van KINSBERGENSTRAAT 62 
1057 pt AMSTERDAM 
TELEFOON 020-183001 

U kunt dageliiks bellen voor 
informatie en bestellingen 
tussen 10.00 en 14.00 uur 
Verzending onder rembours 
kost FI 8,75 extra . 




(c) Junior 99 

















































































































Nr. 5 JUNI/JULI 1986 


DE MSX-GIDS VERSCHIJNT 6 
HEX VOLGENDE NUMMER KOMT 


x PE 

R J 

AAR 

UIT 

RON 

D 1 


AUGUSTUS . 


COLOFON 


De MSX-gids is een uitgave van: 
Uitgeverij Herps, 

Postbus 10252, 1001 EG AMSTERDAM 
Tel. 020-32.74.64 

De MSX-gids verschijnt 6 keer per jaar. 
Een abonnement kost FI. 40,- per 6 
nummers en is te verkrijgen door FI. 40 — 
over te maken op Gironummer: 5036011 
t.n.v. Jose Herps te Amsterdam. 

Voor Belgie: Bfr. 750 op Bankrekening- 
nr. 235-0430464-87 bij de Generate 
Bankmaatschappij te Hassell t.n.v. Jose 
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sterdam. 
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Het geheel of gedeeltelijk overnemen 
van de mhoud is alleen toegestaan voor: 

NIET-COMMERCIELE DOELEINDEN! 

De inhoud van de MSX-gids komt voor 
een groot gedeelte tot stand door in- 
zendingen van de lezers. De aanspra- 
kelijkheid voor auteursrechten voor in- 
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6 issues. 
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OPLOSSING 


Laat ook hier de 'weretdstandaard 1 ons weer in de steek of is er 
iets anders aan de hand? 

W i j zijn bezig met enkele specifieke diskprogramma's en stuiten 
op problemen met de MKS$, M K D $ , MKI$, CVI, CVS, en CVO 
opdrachten. Bij gebruik van deze functies worden onze 
programma's verminkt. Oit gebeurt alleen bij de grotere 
programma's (groter dan c a. 6K). Zodra een van deze functies 
wordt gebruikt worden hele stukken BASIC-programma verminkt. Dit 
vindt allemaal plaats in het laatste gedeelte van het programma 
en de verminkingen schuiven op naar het midden wanneer een 
programma groter wordt. Met kteinere programma's heb je dus 
niets in de gaten (of worden dan de variabelen verminkt?). We 
hebben van alles geprobeerd, maar zijn er nog niet uit. Wie 
helpt ons? 


En dat 
e rgens 


was dan het begin van mijn voorwoord. 
mijn ei kwijt. 


J a , ik moet ook 


WE LOPEN ALTIJD EEN BEETJE ACHTER 


Dat is het risiko van een 2-maandelijks blad. Toen we schreven 
dat Philips alweer met een nieuwe MSX 2 machine zou k o m e n , was 
deze er al op het moment dat het vorige blad in de winkel lag. 
Ik heb het uiteraard over de VG-8235 met 2x 128K RAM. Deze 64 K 
extra RAM is leak meegenomen en nog leuker is het pakket 
software dat Philips bij deze machine levert. Dat maakt deze MSX 
2 al wat goedkoper dan een MSX 1 met een drive en een 
soortge'lijk pakket! De nieuwe video-chip, de uitgebreide video 
RAM en de 80 kolommen krijg je er dan ook nog bij. De Sony 
daaraantegen is maar matigjes met z'n extra's en voor die prijs 
moet je je toch wel afvragen of een andere machine (PC-kloon 
b.v.) niet gunstiger is. Maar wie weet is alles al weer 
veranderd als dit blad in de winkelligt. Tussen dit tikwerk en 
het verschijnen van dit nummer zat nog een vakantie die het 
actueel zijn helemaal bemoeilijkt. 


OP NAAR DE 25000 


De MSX Gids begint nu echt te groeien en als alles in het 
huidige tempo blijft doorgaan zitten we aan het eind van het 
jaar op een oplage van 25000 exemplaren. Het papier van het 
binnenwerk zou bij dit numer al van betere kwaliteit moet en zijn 
(en anders 2 eker bij het volgende nummer) en het zetten van de 
tekst zal ook niet lang meer op zich laten wachten. We hebben al 
enkele noodkreten gehoord van lezers die bang zijn dat nu ook 
dit blad uit de hobbysfeer zal verdwijnen maar deze lezers 

kunnen gerust zijn. Zolang ik de hoofdredakteur ben zal de MSX 
Gids een echt hobbyblad blijven; al wordt de oplage 2 keer zo 

g root . 


ALFRED DEBELS 
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HET VERLATEN KERKHOF 


Het verlaten kerkhof is een tamelijk 
lastig strategie spel. Het spel heeft 5 
velden en de mogelijkheid om zelf velden 
bij te tnaken; hiervoor is wel enige 
programmeer ervaring vereist. De struktaur 
van het prograrama is echter goed 
door zichtig. 

Het spel 

Het gaat erom, op 5 verlaten(?) kerkhoven, 
de -eens achtergelaten- zilveren kruisjes 
te verzamelen. Deze kruisjes liggen niet 
elke keer op dezelfde plaats dus het 
uitstippelen van en gunstige route is niet 
mogelijk. De speler wordt tegengewerkt 
door 3 spoken die hun speelgoedjes zien 
verdwijnen en niet geraakt mogen worden. 
Het veld bestaat uit verschiIlende 
grondsoorten: 

Gras: hier kan normaal worden gelopen. Op 
plaatsen waar men al geweest is vormt zich 
een pad. Op deze paden kan met dubbelle 
snelheid worden gelopen. 

Struiken: hier gaat het lopen iets 
moeilijker en er koraen geen paden. 

Rotsgrond: hetzelfde als bij struiken. 

Op het water kan uiteraard niet worden 
gelopen; zelfs niet door de spoken. 

Op de velden bevinden zich nog tnagische 
lampen. Deze laten de spoken niet door en 
geven de speler, bij het bereiken van de 
lampen, en extra stuk pad in A richtingen. 

Wacht niet te lang met het verplaatsen van 
de speler. De spoken lopen (heel langzaam) 
wel door! Aan het eind van het spel zit 
nog een uitgebreide routine waarin de 
scores van de spelers kunnen worden 
bijgehouden. Het invullen van de naam 
gebeurt met de cursortoetsen. Let op, na 
het uitschakelen van de computer zijn de 
scores ook verdwenen. 

Dit spel is bijzonder geschikt om 
speelvelden bij te maken. Wat bijvoorbeeld 
te denken van een veld met een vierde 
(onzichtbaar) spookje, dat -heel verve- 
lend- de gemaakte paden weer uitwist. 

Misschien stuurt ieraand nog een leuke 
suggestie in. Succes met het spel en tot 
en volgende ronde? 

Alfred. 
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10 
20 
30 
40 
50 ' 

60 COLOR 15,1,1 1 SCREEN 2,0,Is CLEAR 2 
00!DEFINT A-Z 
70 X=RND(-TIME) tLV=3iQ=0 
80 GOSUB 4420 

90 ON V GOSUB 1130,1500,1910,2480,30 
40 

100 K=9+V! M—0t PZ* 15—V 

110 TIME=0:IF V=5 THEN PZ=0 

120 X0=2481 Y0=8B t PUTSPRITE0, <X0,Y0>, 

15,0 

130 LINE(192,BB>-(207,95),1,BF 

140 FOR I=24B TO 192 STEP-1 

150 SOUND 13,9!SOUND 12,1 

SOUND 1,01 SOUND 0,50 

PUT SPRITE 0,<I,Y0>,15,0 
Kjtr ¥ T * YQiss. 1 O'? 

LINE<200,88)-(207,95),13,BF 


160 

170 

180 

190 

200 

210 

220 


» CURSOR 

IF STICK(0)=7 THEN X0=X0-BsP=PDI 
NT (X0,V0):GOTO2B0 
230 IF STICK(0)=3 
NT < X0,Y0)!GDTO300 
240 IF STICK(0)=1 
NT <X0,Y0) s GOTO 320 
250 IF STICK(0)=5 THEN 
NT (X0,Y0):GOTO 340 

260 IF TIME=500 THEN TIME=0!GOTO B20 
GOTO 220 


THEN X0=X0+8iP=POI 
THEN Y0=Y0-8sP=POI 


Y0=Y0+BsP=POI 


270 

2B0 

820 

290 

300 

820 

310 

320 

820 

330 

340 

820 

350 

360 

370 

380 

390 


IF P=6 OR 

GOTO 380 
IF P=6 OR 

GOTO 380 
IF P=6 OR 

GOTO 380 
IF P=6 OR 

GOTO 380 


P= 13 

THEN 

X0=X0+8iGOTO 

P= 13 

THEN 

X0=X0“B!GOTO 

P= 13 

THEN 

Y0=Y0+8!GOTO 

P= 13 

THEN 

Y0=Y0-B!GOTD 


* SPELER VERPLAATSEN 
X=X0sY=Y0sTIME=0 

SOUND 13,9!SOUND 12,7s SOUND 0,25 
4!SOUND 1,0 

400 PUT SPRITE 0, <X0,Y0),15,0 

410 IF P=2 THEN GOSUB 4990:SC=5C+1sM 

=0*GOTO 800:REM DIT WAS GRAS 

Junior 99 


(c) 

































420 IF P-1 AND M=0 THEN M=l:GOSUB 49 

90:FORJ-1TO400:NEXT:GOTO220 

430 IF P-15 THEN SC-SC+10+Vs K«K-1:GO 

SUB 4990s GOTO B00s REM KRUIS GEPAKT 

440 IF P-10 THEN 590:REM LIGHT 

450 IF P=12 OR P=14 THEN 740:REM BOS 

JE/ROTSEN 

460 IF P-4 THEN 510 


470 IF M=1 THEN M=0iGOTO B00!REM 2X 
GEWEEST 

4B0 STOP : REM HIER MAG HIJ NIET KOM 
EN 

490 * 


500 "IN WATER 

510 SOUND 1,0s SOUND 11,1:SOUND 12,4 
520 FOR 1—255 TO 35 STEP -10 
530 SOUND 13,9:SOUND 0,1 

540 PUT SPRITE 0,(X0,Y0),I/17,0 

550 NEXT 

560 GOTO 3470 

570 * 

5B0 * MAGISCHE LAMP 

590 SC-SC+10+V: M-0 

600 GOSUB 4990 

610 FOR I-B TO 48 STEP B 

620 SOUND 13,9s SOUND1,9:SOUND12,3s SO 

UND0,I 

630 COLOR,,1/8+5 

640 X-X0+I:Y-Y0:IF POINT(X,Y)=2 THEN 
GOSUB 4990 

650 X-X0-I:Y-Y0: IF P0INT<X,Y)=2 THEN 

RflQl IPt AQQ01 

660 X-X0B Y-Y0+ISIF P0INT<X,Y)=2 THEN 
GOSUB 4990 

670 X-X0S Y-Y0-I: IF P0INT<X,Y)=2 THEN 
GOSUB 4990 
6B0 COLOR,,1/8 
690 NEXT 

700 COLOR,,RND(1)*13+1 
710 X-X0: Y=Y0s GOTO B00 


720 " 

730 " BOSJE/ROTSEN 
740 SC-SC+V 
750 I=RND(1)* 10 
760 IF 1-0 THEN M-l 
770 GOTO 800 
780 " 

790 p SPODKJES VERPLAAT5EN 
800 GOSUB 4840 

810 IF K-0 THEN LINE(200,88)-<207,95 
),1,BF 

820 IF PZ>0THENPZ=PZ-1:GOTO220 
830 FOR 1=1 TO 3 
840 IF M-l THEN B70 

850 IFX(I)<X0THENP-POINT <X(I>+B,Y(I) 
):G0T0910 

860 IFX(1)>X0THENP=POINT<X(I)-8,Y<I) 
):GOTO930 


870 IFY (IX Y0THENP—POINT (X < I) , Y (I)+8 
):GOTO950 

880 IFY <I)>Y0THENP=POINT <X <1),Y <I)-8 

):GOTO970 

890 NEXT 

900 GOTO 1010 

910 1FP<30RP-140RP-120RP-15THENX<I)— 
X(I)+8:GOTOB90 
920 GOTOB70 

930 IFP<30RP-140RP-120RP-15THENX (I) = 
X(I)-8s GOTO890 
940 GOTO870 

950 IFP< 30RP-140RP-120RP-15THENY(I > = 
Y < I)+8s GOTO890 
960 GOTOB90 

970 IFP<30RP-140RP-120RP-15THENY<I>= 
Y(1)-8 s GOTOB90 
980 GOTO B90 
990 ? 


1000 STOP:REM MAG HIER NIET KOMEN 
1010 PUT SPRITE 1 , (X (1) , YU ) ) ,5, 1 
1020 PUT SPRITE 2, <X<2>,Y<2)>,8,2 
1030 PUT SPRITE 3,(X(3),Y<3>>,10,3 
1040 IF X0>235 THEN 3320 
1050 FOR 1=1 TO 3 

1060 IF X0-X(I) AND Y0-Y(I) THEN 347 
0 

1070 NEXT 

1080 IF V-5 THEN GOSUB 3160 
1090 IF M-l THEN M=0:GOTO B20 
1100 GOTO 220 
1110 ? 

1120 * VELD 1 

1130 GOSUB 4180 

1140 FDR Y-56 TO 120 STEP B 

1150 FDR X-64 TO 136 STEP B 

1160 GOSUB 5250 

1170 NEXTs NEXT 

1180 LINE(24,16)-(39,31),1,BF 

1190 LINE <166,16)-<183,31),1,BF 

1200 LINE(24,i60)-(39,175),1,BF 

1210 LINE<168,160)-(183,175),1,BF 

1220 FOR Y-16 TO 24 STEP 8 

1230 FOR X-24 TO 32 STEP 8 

1240 GOSUB 5400 

1250 Y-Y+144sGOSUB 5400 

1260 X-X+144JGOSUB 5400 

1270 Y-Y-144sGOSUB 5400 

1280 X—X-l44:NEXT s NEXT 

1290 FOR Y-152 TO 160 STEP 8 

1300 FOR X-64 TO 136 STEP 8 

1310 GOSUB 5030!NEXTs NEXT 

1320 X-144s Y=48s GOSUB 5620 

1330 X-144s Y—128s GOSUB5620 

1340 X=56sY=4BsGOSUB 5620 

1350 X-56* Y=128:GOSIJB5620 

1360 f 

1370 *KRUISJES PLAATSEN 

1380 FOR 1=1 TO 20 

1390 X-RND(1)*23+1s X-X*8 

1400 Y-RND(1> *22+1s Y=Y*B 

1410 IF POINT <X,Y)< >2 AND POINT(X,Y) 

012AND POINT (X,Y)<>14 THEN 1390 

1420 GOSUB 5500s NEXT 


1430 X(1)=8:Y(1)=8!PUTSPRITE 1,(X(1) 
, Y < 1)),5,1 

1440 X <2)-8s Y(2)-88;PUTSPRITE2, (X<2) 


,Y<2>),8,2 

1450 X(3)-Bs Y(3) = 176s PUTSPRITE3, (X(3 

),Y<3)),10,3 

1460 

1470 RETURN 
1480 51 

1490 * VELD 2 
1500 GOSUB4180 

1510 LINE <128,8)-(183,1B3),1,BF 
1520 FOR Y-B TO 176 STEP 8 
1530 FOR X-l28 TO 176 STEP 8 
1540 GOSUB 5400!NEXT:NEXT 
1550 LINE<144,24)-(167,167),1,BF 
1560 FOR Y-24 TO 160 STEP 8 
1570 FOR X-l44 TO 160 STEP B 
1580 GOSUB 5260!NEXTiNEXT 
1590 LINE<40,24)-(63,47),1,BF 
1600 LINE<40,144)-(63,167),1,BF 
1610 FOR Y-24 TO 40 STEP B 
1620 FOR X-40 TO 56 STEP 8 
1630 GOSUB 5400!NEXT:NEXT 
1640 FOR Y-144 TO 160 STEP 8 
1650 FOR X-40 TO 56 STEP 8 
1660 GOSUB 5400!NEXT:NEXT 
1670 Y-72:FOR X-40 TO 96 STEP B 
1680 GOSUB 5170:NEXT 
1690 LINE<40,80)-<55,111),1,BF 
1700 X-40:FOR Y-80 TO 104 STEP 8 
1710 GOSUB 5180!NEXT 
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1720 X=48! FOR Y=80 TO 104 STEP S 

1730 GOSUB 5180!NEXT 

1740 Y=104:FOR X=56 TO 96 STEP 8 

1750 GOSUB 5170!NEXT 

1760 X=184:Y=48 

1770 GOSUB 5620 

1780 X=184:Y= 136 

1790 GOSUB 5620 

1800 FOR 1= 1 TO 20 

1810 X=RND<1)*22+1:X=X*8 

1820 Y=RND<1)*22+1iY=Y*8 

1830 IF POINT< X , Y) 02 AND POINT<X,Y) 

012 AND POI NT < X , Y) 014 THEN 1810’ 

1840 GOSUB 5500!NEXT 

1850 X(1)=BiY(1>=8!PUTSPRITE 1,<X(1) 
,Y(I)),5,1 

1860 X<2)=8:Y<2)=88:PUTSPRITE2, <X<2> 
Y (2) ) 8 2 

1870 X(3)=B:Y(3)=176!PUTSPRITE3, <X<3 

>,Y<3>),10,3 

1880 RETURN 

1890 ? 

1900 ' VELD 3 

1910 LINE(8,8>-(199,183), 1 , BF 

1920 FOR Y-B TO 32 STEP 8 

1930 FOR X=8 TO 192 STEP 8 

1940 GOSUB 5400 

1950 Y=Y+144 

I960 GOSUB 5400 

1970 Y“Y—144:NEXT:NEXT 

1980 FOR Y=40 TO 144 STEP B 

1990 FOR X=8 TO 192 STEP 8 

2000 GOSUB 4910 

2010 NEXTt NEXT 

2020 FOR Y=16 TO 24 STEP 8 

2030 FOR X = 16 TO 168 STEP 8 

2040 IF X=B8 OR X=96 THEN 2090 

2050 GOSUB 5250 

2060 Y=Y+144 

2070 GOSUB 5250 

2080 Y-Y-144 

2090 NEXT 

2100 NEXT 

2110 J=136 

2120 FOR Y-4B TO 136 STEP 8 
2130 FOR X-J TO J+32 STEP 8 
2140 GOSUB 5030 
2150 NEXT!J=J~BiNEXT 
2160 FOR Y=56 TO 96 STEP B 
2170 FOR X=24 TO 64 STEP 8 
2180 GOSUB 5390 
2190 NEXTiNEXT 
2200 FOR Y-96 TO 12B STEP 8 
2210 FOR X=152 TO 184 STEP 8 
2220 GOSUB 5390 
2230 NEXT!NEXT 
2240 FOR Y=4S TO 56 STEP 
2250 FOR X=88 TO 104 STEP 8 
2260 GOSUB 5170 
2270 X=X+16iY=Y+80 
2280 GOSUB 5170 
2290 X=X-16:Y=Y-B0 
2300 NEXT!NEXT 

2310 FOR Y-112 TO 128 STEP 8 

2320 FOR X=24 TO 32 STEP 8 

2330 GOSUB 5170 

2340 NEXT:NEXT 

2350 X=88s Y=72:GOSUB 5620 

2360 X-136iY=l12!GOSUB 5620 

2370 FOR I* 1 TO 20 

2380 X=RND(l)*22+iiX=X*8 

2390 Y=RND(1)#22+1:Y=Y#B 

2400 IF POINT<X,Y)<>2 AND POINT<X,Y) 

012 AND PO I NT (X , Y) 014 THEN 2380 

2410 GOSUB 5500!NEXT 

2420 X<l>=8!Y(i)=8: PUTSPRITE 1,<X<1> 
# Y<l>),5,i 


!2430 X(2)= 8 :Y(2)= 881 PUTSPRITE2, <X <2) 
,Y<2> >,B,2 

2440 X(3)=8!Y<3)=176!PUTSPRITE3,(X(3 
),Y<3> >,10,3 
2450 RETURN 
2460 ’ 

2470 •' VELD 4 

2480 LINE(8,8)-(199,183),1,BF 

2490 Y=0!FOR X=8 TO 192 STEP 8 

2500 GOSUB 5400 

2510 Y=Y+168iGOSUB 5400 

2520 Y = Y-168s NEXT 

2530 X-8!FOR Y=16 TO 168 STEP B 

2540 GOSUB 5400 

2550 X ss X + 164l GOSUB 5400 

2560 X=X-184iNEXT 

2570 FOR Y=16 TO 24 STEP 8 

2580 FOR X-16 TO 184 STEP 8 

2590 GOSUB 5180 

2600 Y~Y+144!GOSUB 5180 

2610 Y=Y-144sNEXT!NEXT 

2620 FOR Y as 32 TO 152 STEP 8 

2630 FOR X=16 TO 24 STEP 8 

2640 GOSUB 5180 

2650 X=X+160!GOSUB 51B0 

2660 X=X-160:NEXT!NEXT 

2670 FOR Y=32 TO 152 STEP 8 

2680 FOR X=32 TO 168 STEP B 

2690 GOSUB 4910 

2700 NEXT:NEXT 

2710 FOR Y=48 TO 136 STEP 8 

2720 FOR X=4B TO 152 STEP 8 

2730 GOSUB 5390!NEXT:NEXT 

2740 FOR Y s ®80 TO 96 STEP 8 

2750 FOR X=160 TO 192 STEP B 

2760 GOSUB 4900:NEXT:NEXT 

2770 FOR Y=64 TO 72 STEP 8 

2780 FOR X ss 64 TO 72 STEP B 

2790 GOSUB 5250 

2800 Y=Y+4B:GOSUB 5250 

2810 X=X+64:GOSUB 5250 

2820 Y=Y“4B;GOSUB 5250 

2830 X-X-64:NEXT:NEXT 

2840 FOR Y=72 TO 104 STEP B 

2850 FOR X=96 TO 104 STEP 8 

2860 GOSUB 5030!NEXT:NEXT 

2870 X-8:FOR Y=16 TO 168 STEP 8 

2880 GOSUB 4900:NEXT 

2890 X=40:Y=40:GOSUB 5620 

2900 X=40sY=144:GOSUB 5620 

2910 X=168:Y=32:GOSUB 5620 

2920 X-16Bs Y“152lGOSUB 5620 

2930 FOR 1= 1 TO 20 

2940 X=RND<1)*22+l:X-X*8 

2950 Y=RND<1)*22+1 t Y=Y*B 

2960 IF POINT <X,Y) 02 AND POINT(X,Y) 

012 AND POINT (X « Y) < > 14 THEN 2940 

2970 GOSUB 5500!NEXT 

2980 X(1>=32!Y(l)=32!PUTSPRITE ( 1,(X< 
1),Y <1)),5,1 

2990 X(2)=32s Y(2)=SB:PUTSPRITE2, (X(2 
),Y<2> >,8,2 

3000 X(3> =32!Y(3) = 152iPUTSPRITE3, (X( 
3),Y(3)),10,3 
3010 RETURN 
3020 ’ 

3030 5 VELD 5 

3040 GOSUB 4180 

3050 FOR 1=1 TO 20 

3060 X=RNDU)*17+1:X = X*8 

3070 Y=RND(i)*22+l:Y=Y*B 

3080 IF POINT <X,Y> 02 AND POINT(X,Y) 

< > 12 AND POINT (X,Y> 014 THEN 1390 

3090 GOSUB 5500!NEXT 

3100 X<1)=B:Y<1)=B:PUTSPRITE 1,(X(1> 
,Y(1)),5,1 
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3110 X < 2)-B:Y(2)=88:PUTSPRITE2, (X<2) 
,Y<2) ),8,2 

3120 X(3)=8:Y(3)-176s PUTSPRITE3, (X(3 
),Y<3)),10,3 
3130 RETURN 


3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 


“SUBROUTINE SPOOKJES VELD 5 


X = X(1)-8:Y=Y(1) 
IF POINT ( X,Y) =2 
X=X(1):Y=Y<1)—8 
IF POINT < X, Y> =2 
X = X(2) -8: Y-Y<2) 
IF POINT < X,Y) <3 
X = X(2) ;Y=Y(2)-B 
IF POINT(X,Y)<3 
X = X(3>-8sY=Y<3> 


THEN GOSUB 5250 
THEN GOSUB 5250 
THEN GOSUB 5030 
THEN GOSLJB 5030 


3250 IF POINT( X,Y)<3 THEN GOSUB 5390 
3260 X=X<3):Y«Y(3>+B 

3270 IF POINT < X,Y)<3 THEN GOSUB 5390 
3280 RETURN 
3290 ' 


3300 " 

3310 *RONDE GEHAALD 
3320 SOUND 1,0s SOUND 12,2 
3330 FOR 1*255 TO 10 STEP “1 
3340 SOUND 13,9s SOUND 0,1 
3350 NEXT 

3360 FORI*0TO3s PUTSPRITEI, (8,209)sNE 
XT 


3370 5C=SC+LV*100 
3380 GOSUB 4840 
3390 SC«SC+V#100 


3400 GOSUB 4840 

3410 V=V+1sIF V>5 THEN 3690 

3420 IF 0=0 AND SO2000 THEN Q«1:LV* 

LV+1 

3430 GOSUB 4300 
3440 GOTO 90 


3450 * 

3460 *MANNETJE GEPAKT 
3470 BEEP 

3480 X*="V15T40O1L10EL16EL32DL10EL16 
F+L32FL16FL32EL16EL32DL.BE " 

3490 Y$ = “VI5T40O2L. 10EL16EL32EL10FL16 
G+L32GL16GL32FL16FL32ELBF" 

3500 FORI=0TO3:PUTSPRITEI,(8,209):NE 
XT 

3510 PLAY X*,Y* 

3520 LV=LV-1 


3530 IF SO 100 THEN SC=SC-100 

3540 GOSUB 4B40 

3550 GOSLJB 4300 

3560 IF LV*0 THEN 3610 

3570 IF PLAY <0)*0 THEN GOSUB 4790;GO 

TO 90 

3580 GOTO 3570 
3590 ’ 

3600 ’ NIET GEHAALD MANNETJES OP 
3610 LINE(8,8 >-(198,183),1,BF 
3620 COLOR 9 

3630 FOR I* 10 TO 150 STEP 8 

3640 PRESET<30,I)SPRINT#!,"NIET GEHA 

ALD! " 

3650 NEXT 


3660 GOTO 3740 
3670 ’ 

3680 *GEHAALD-EINDE-AFGELOPEN-UIT. 
3690 LINE(8,8)-(198,183),1,BF 
3700 COLOR 9 

3710 FOR I* 10 TO 150 STEP B 
3720 PRESET(30,I):PRINT#1,"GEHAALD. 
KNAP WERK!" 

3730 NEXT 

3740 LINE <8,8) - <198,183),1,BF 

3750 PRESET(24,16)SPRINT#1,"HET VERL 

ATEN KERKHDF" 

3760 PRESET<25,16)sPRINT#1,"HET VERL 
ATEN KERKHQF" 

3770 COLOR 6 


3780 PRESET(64,32):PRINT#1,"TOPSCORE 
S" 

3790 PRESET<65,32)*PRINT#1,"TOPSCORE 
S" 

3800 LINE <40,43)-<159,140),14,B 

3810 COLOR 10 

3820 FOR 1=1 TO 6 

3830 IF SOHS(I) THEN 3850 

3840 NEXTiGOTO 3880 

3850 X*=" "s FOR J = I TO 6 

3860 SWAP SC,HS< J) s SWAP X*,HS*(J) 

3870 NEXT 

3880 FOR J=1 TO 6 

3890 X=48s Y«J * 16+32 

3900 PRESET(X,Y)sPRINT#l,J $"s 

3910 PRINT#1,USING"#####";HS < J) 

3920 PRESET<X+B0,Y)sPRINT#1,HS*(J) 
3930 NEXT 

3940 IF I>6 THEN 4090 
3950 X=128:Y=I*16+32 
3960 HS$(I)*"" 

3970 FOR J*1 TO 3 
3980 M=65 

3990 PRESET < X,Y):PRINT#1,CHR$(M) 

4000 X*=INKEY*sIF X$=""THEN 4000 
4010 K=ASC(X*> 

4020 IF K*29 THEN M=M-1:IF M<65 THEN 


M*90 

4030 IF K*2B THEN M=M+1:IF N>90 THEN 


M=65 


4040 LINE < X,Y)-(X+7,Y+7),1,BF 
4050 PRESET(X,Y)sPRINT#1,CHR*<M) 

4060 IF K=32 THEN X = X+8s HSS(I)=HS$(I 
)+CHR$<M):GOTO 4080 
4070 GOTO 4000 
4080 NEXT 

4090 PRESET(16,168)s PRINT#1,"NOG EEN 
KEER? J/N" 

4100 X$=INKEY*sIF X$=""THEN 4100 

4110 IF X*= ,, J" OR XS="j" THEN 4140 

4120 IF X*="N" OR X*="n" THEN END 

4130 GOTO 4100 

4140 RESTORE 5700s CLOSE 

4150 GOTO 70 

4160 * 

4170 * VELD(GRAB)OPBOUWEN 
4180 LINE < 8,8)-(198,183),1,BF 
4190 C0L0R2 

4200 FOR Y=B TO 176 STEP B 
4210 FOR X=B TO 192 STEP 8 
4220 SOUND 13,9s SOUND 0,YsSOUND1,0 
4230 PSET < X , Y >s PSET < X+7,Y) 

4240 PSET(X,Y+7)!PSET(X+7, Y + 7) 

4250 LINE <X+2,Y+3)~(X+5,Y+3) 

4260 NEXT!NEXT 
4270 RETURN 
4280 ' 

4290 “LEVENS TELLEN 

4300 LINE(215,103)-(239,135),1,BF 


4310 C0LDR15 

4320 SOUND 1,Bs S0UND2,4s SOUND13,9 
4330 IF LV>0 THEN PRESET(215,102) 

int#i, u a" 

4340 IF LV>1 THEN PRESET(215,111) 

int#i,"» n 

4350 IF LV>2 THEN PRESET(215,120) 

INT#l,"a M 

4360 IF LV>3 THEN PRESET(215,129) 


PR 

PR 

PR 


PR 


int#i, "a" 

4370 RETURN 


4380 ' 

4390 * TEKST 
4400 * 

4410 *INITIALISATIE 

4420 PLAY"S9M2999T70L1501CCGG02DCDCB 
BAAGGFFEEDDC","T70L15D4CCGG06DCDCBBA 

4430 X0*0t Y0*0s X <1)*0s Y <1)* 01 X(2)*0s 


Y(2)*0:X(3)-0lY(3)*0sV*lt 
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4440 LINE(0,0)-(255,191),13, B 
4450 LINE(6,6)-(249,184), 13, B 
4460 PAINT(l f 1),13 
4470 LINE<200,6>-<205,191),13,BF 
4480 FOR I«0 TO 3 

4490 X*=.FOR J=1T08 

4500 READ X:X$=X*+CHR*(X)sNEXT 


4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

,1 

4820 

4830 

4840 

4850 

4860 


SPRITE*(I>“X*:NEXT 
COLOR 13 

OPEN"GRPi ‘‘FOR OUTPUT AS#1 
PRESET<208,10) 

PRESET <209,10) 

PRESET<208,18) 

PRESET<209,18) 

PRESET<208,26) 

PRESET<209,26) 

PRESET<208;34) 

PRESET<209,34) 

PRESET<208,42) 

PRESET<209,42) 

PRESET<207,54) 

PRESET <212,53) 

PRESET <217,54) 

<223,54) 

(229,54) 

PRESET<236,54) 

PRESET<242,54) 

COLOR 10 
PRESE”(216,64) 

PRESET(217,64) 

PRESET<212,73) 

PSET(213,73)sPRINT#1,"GIDS" 

LINE<201,86)-(255,97),13,BF 

LINE(208,88)-<255,95),1,BF 

GOSUB 4300:BEEP 

SOUND 7,254:SOUND 8,16 

SOUND 0,10:SOUND 1,0 

SOUND 13,9:SOUND 11,90:SOUND 12 

PRESET <209,151):PRINT#1,"SCORE" 
PSET <210,151):PRINT#1,"SCORE" 
LINE<209,165)-<247,175),1,BF 
COLOR15 

PRESET(209,165):PRINT#1,USING"# 


PRINT#1 , 

"HET" 

PRINT#1, 

"HET" 

PRINT#1, 

"VER”" 

PRINT#1, 

"VER-" 

PRINT#1, 

"LATEN 

PRINT#1, 

"LATEN 

PRINT#1, 

"KERK- 

PRINT#1, 

"KERK- 

PRINT#1, 

"HOF." 

PRINT#1, 

"HOF. " 

PRINT#1 , 

J| J ll 

PRINT#1, 

" c " 

PRINT#1 , 

•1 } If 

PRINT#1, 

II J 11 

PRINT#1 , 

If 11 

PRINT#1, 

"8" 

PRINT#1 , 

"6" 

PRINT#1 , 

"MSX " 

PRINT#1 , 

"MBX" 

PRINT#1, 

"GIDS" 


####";SC 
4870 RETURN 
4880 51 
4890 ? GRAS 

4900 LINE <X,Y)-(X+7,Y+7),1,BF 
4910 C0L0R2 

4920 SOUND 13,9iSOUND 0,Y:SOUND1,0 
4930 PSET < X,Y):PSET < X+7,Y) 

4940 PSET < X,Y+7):PSET < X + 7,Y+7) 

4950 LINE (X+2,Y+3)-(X+5,Y+3) 


4960 RETURN 
4970 • 

4980 ? ZWART 

4990 LINE < X,Y)-< X +7,Y+7) , 1, BF 
5000 RETURN' 

5010 p 

5020 51 ROTSEN 

5030 LINE<X,Y)-<X+7,Y+7),1,BF 
5040 COLOR 14 

5050 SOUND 13,9:SOUND 12,2 
5060 SOUND 0,X+50:SOUND1,1 
5070 LINE <X,Y)~(X,Y+1> 

5080 PSET < X + l,Y+2) 

5090 LINE < X,Y+5) — (X+5,Y) 

5100 LINE <X+6,Y+l)-<X+7,Y+3) 

5110 LINE < X +5, Y+4)-< X +5,Y+5) 

5120 PSET <X+4,Y+6):PSET<X+6,Y+6) 

5130 PSET<X+3,Y+7):PSET<X+7,Y+7) 

5140 RETURN 
5150 " 

5160 ’ MUUR 

5170 LINE < X,Y)-< X+7,Y+7),1,BF 
5180 COLOR 6 

5190 SOUND 13,9:SOUND 12,5:S0UND 1,9 



5200 LINE < X,Y)-(X+7,Y+7),,B 
5210 LINE(X,Y+3)-<X+7,Y+4),,B 
5220 RETURN 
5230 p 
5240 p WATER 

5250 LINE < X,Y)-< X + 7,Y+7),1,BF 
5260 C0L0R4 

5270 SOUND 13,9:SOUND 12,2:SOUND 0,X 
5280 PSET <X,Y) 

5290 LINE <X + l,Y+2)-<X+3,Y+2) 

5300 LINE < X+5,Y + 2)-< X+6,Y+2) 

5310 LINE <X+3,Y+1) — <X+4,Y+1) 

5320 PSET<X,Y+3):PSET<X+7,Y+5) 

5330 LINE <X + l,Y+6> — (X+2,Y + 6) 

5340 LINE <X+3,Y+5)-<X+4,Y+5) 

5350 LINE <X +5,Y+6>-(X+6,Y+6) 

5360 RETURN 


5370 p 

5380 * BOSJES 

5390 LINE <X,Y)-<X+ 7 , Y+7),1,BF 
5400 COLOR 12 

5410 SOUND 13,9:SOUND 12,2 
5420 SOUND 1,2iSOUND 0,X 
5430 PSET<X,Y):PBET<X+7,Y) 

5440 PSET <X,Y+7):PSET <X+7,Y+7) 

5450 CIRCLE<X+3,Y+3)<3 
5460 PAINT(X+3,Y+3) 

5470 RETURN 
5480 ’ 

5490 ’ KRUISJE 

5500 LINE < X,Y)-< X +7,Y+7),1,BF 

5510 COLOR 15 

5520 SOUND 12,1:SOUND 1,0 

5530 FOR J=1 TO X 

5540 SOUND 13,9:SOUND 0,J:NEXT 

5550 PSET < X,Y):PSET(X + 7,Y) 

5560 PSET<X,Y+7):PSET<X+7,Y+7) 

5570 LINE < X+3,Y)-(X+4,Y + 7),,B 
5580 LINE <X +1,Y+2) — (X + 6,Y+3),,B 
5590 RETURN 
5600 " 

5610 ’LAMP 

5620 LINE < X,Y)-(X+7,Y+7),1,BF 
5630 COLOR 10 

5640 PSET < X,Y):PRINT#1,"t" 

5650 COLOR10:PSET <X,Y) 

5660 PSET<X+7,Y):PSET<X,Y+7):PSET(X+ 
7,Y+7) 


5670 

5680 

5690 

5700 

5710 

231 

5720 

1 

5730 


RETURN 

* 

*SPRITE DATA 

DATA 24,24,255,189,24,24,36,102 
DATA 126,255,187,153,255,36,36, 

DATA 60,126,219,126,60,36,36,23 

DATA 24,60,90,255,255,36,36,102 
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CDNTROLE TELLIN6 


Regel: 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Rege 
Rege 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Rege) 
Regel 
Rpqel 
Regel 
Regel 
Regel 
Regel 
Regel 


10 - 58 
20 - 58 
30 * 58 
40 - 58 
50 - 58 
60 - 122 
70 - 70 
80 - 16 
90 - 62 
100 - 91 
110 - 207 
120 - 157 
130 - !5 
140 - 201 
150 - 1B9 
160 - 207 
170 - 205 
190 - 3 
190 - 33 
200 - 5B 
210 - 58 
220 - 183 
230 - 198 
240 - 251 
250 - 18 
260 - 131 
270 - 14? 
280 - 190 
290 - 52 
300 - 191 
310 - 52 
320 - 192 
330 - 52 
340 - 193 
350 - 52 
360 - 58 
370 - 58 
380 - 223 
390 - 152 
400 - 12 
410 - 144 
420 - 100 
430 - 37 
440 - 181 
450 - 224 
460 - 38 
470 - 174 
480 - 10 
490 - 58 
500 - 58 
510 - 35 
520 - 90 
530 - 234 
540 - 75 
550 - 131 
560 - 82 
570 - 58 
580 - 58 
590 - 243 
600 - 76 
610 - 128 
620 - 121 
630 - 114 

640 * 124 
650 * 125 
660 - 124 
670 - 125 
6B0 - 107 
690 - 131 
700 - 17 
710 - 238 
720 - 58 
730 - 58 
740 - 9B 
750 - 46 
760 - 92 
770 - 218 
780 - 58 
790 - 58 
800 - 1B1 
910 - 39 
820 - 34 
830 * 25 
340 - 138 
850 - 201 
860 - 220 
870 - 243 
880 - 6 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege! 

Regel 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


890 

- 

131 

900 

- 

172 

910 

- 

220 

920 

- 

0 

930 

- 

221 

940 

- 

0 

950 

- 

222 

960 

- 

20 

970 

- 

223 

980 

- 

52 

990 

- 

58 

1000 


202 

1010 

- 

108 

1020 

- 

115 

1030 

- 

119 

1040 

- 

71 

1050 

- 

25 

1060 

- 

120 

1070 

- 

131 

1080 

- 

63 

1090 


136 

1100 

- 

147 

1110 

— 

58 

1120 

- 

58 

1130 

- 

31 

1140 

- 

6 

1150 

- 

29 

1160 

- 

81 

1170 

- 

64 

1180 

- 

55 

1190 

- 

87 

1200 

- 

87 

1210 

— 

119 

1220 

- 

126 

1230 

- 

141 

1240 

- 

232 

1250 

- 

B3 

1260 

* 

81 

1270 

- 

84 

1280 

* 

170 

1290 

- 

142 

1300 

— 

29 

1310 

- 

238 

1320 

■* 

165 

1330 

- 

213 

1340 

— 

77 

1350 

- 

125 

1360 

- 

58 

1370 

- 

58 

1380 

- 

40 

1390 

* 

50 

1400 

- 

52 

1410 

- 

200 

1420 

«» 

9 

1430 

- 

71 

1440 

- 

126 

1450 

- 

220 

1460 

* 

58 

1470 

-+ 

142 

1480 

- 

58 

1490 

- 

58 

1500 

- 

255 

1510 

mm 

193 

1520 

- 

16 

1530 

* 

133 

1540 

- 

98 

1550 

- 

191 

1560 

- 

14 

1570 

- 

133 

1580 

- 

213 

1590 

- 

119 

1600 

- 

103 

1610 

- 

150 

1620 

- 

1B1 

1630 

- 

98 

1640 

- 

134 

1650 

- 

18! 

1660 

- 

98 

1670 

- 

182 

1680 

* 

190 

1690 

— 

231 

1700 

— 

198 

1710 

- 

200 

1720 

■* 

206 

1730 

- 

200 

1740 

- 

230 

1750 

* 

190 

1760 

- 

207 

1770 

* 

196 


Regel: 1780 
Regel: 1790 
Regel: 1800 
Regel: 1810 
Regel: 1820 
Regel: 1830 
Regel: 1840 
Regel: 1850 
Regel: 1860 
Regel: 1870 
Regel: 1880 
Regel: 1890 
Regel: 1900 
Regel: 1910 
Regel: 1920 
Regel: 1930 
Regel: 1940 
Rege!: 1950 
Regel: 1960 
Regel: 1970 
Regel: I960 
Regel: 1990 
Regel: 2000 
Regel: 2010 
Regel: 2020 
Regel: 2030 
Regel: 2040 
Regel: 2050 
Regel: 2060 
Regel: 2070 
Regel: 2080 
Regel: 2090 
Regel: 2100 
Regel: 2110 
Regel: 2120 
Regel: 2130 
Regel: 2140 
Regel: 2150 
Regel: 2160 
Regel: 2170 
Regel: 2180 
Regel: 2190 
Regel: 2200 
Regel: 2210 
Regel: 2220 
Regel: 2230 
Regel: 2240 
Regel: 2250 
Regel: 2260 
Regel: 2270 
Regel: 2280 
Regel: 2290 
Regel: 2300 
Regel: 2310 
Regel: 2320 
Regel: 2330 
Regel: 2340 
Regel: 2350 
Regel: 2360 
Regel: 2370 
Regel: 2380 
Regel: 2390 
Regel: 2400 
Regel: 2410 
Regel: 2420 
Regel: 2430 
Regel: 2440 
Regel: 2450 
Regel: 2460 
Regel: 2470 
Regel: 2480 
Regel: 2490 
Regel: 2500 
Regel: 2510 
Regel: 2520 
Regel: 2530 
Regel: 2540 
Regel: 2550 
Regel: 2560 
Regel: 2570 
Regel: 2580 
Regel: 2590 
Regel: 2600 
Rege 1, ’’MO 
Regel: 2620 
Regel: 2630 
Regel: 2640 
Regel: 2650 
Regel: 2660 


39 

196 

72 

49 

52 

142 

9 

71 
126 
220 
142 

58 

58 

91 

128 

31 

232 

49 

232 

172 

14 

31 

252 

64 

126 

13 
160 

81 

49 
81 

50 
131 

131 
208 

14 
235 
116 

8 

238 

173 
222 

64 

54 

165 

222 

64 

190 

21 

1 

219 
1 

220 
64 

70 

141 

1 

64 

133 

221 

72 
49 
52 

202 

9 

71 
126 
220 

142 
58 
58 
91 

196 

232 

107 

7 

169 
232 
121 
21 
126 
29 
II 
118 
172 
14 
125 
11 

132 
186 



<e>1986 

HSX 

GIIS 


Regel: 2670 * 14 
Regel: 2680 - 29 
Regel: 2690 - 252 
Regel: 2700 - 64 
Regel: 2710 - 14 
Regel: 2720 - 29 
Regel: 2730 - 88 
Regel: 2740 - 6 

Regel: 2750 * 181 
Regel; 2760 - 108 
Regel: 2770 - 222 
Regel: 2700 - 221 
Regel: 2790 - 81 
Regel: 2900 - 92 
Regel: 2810 - 106 
Regel: 2820 - 93 
Regel: 2B30 - 90 
Regel: 2840 - 6 

Regel: 2850 - 29 
Regel: 2860 - 238 
Regel: 2870 - 168 
Regel: 2800 - 175 
Regel: 2890 - 53 
Regel: 2900 - 157 
Regel: 2910 - 173 
Regel: 2920 - 37 
Regel: 2930 - 72 
Regel: 2940 - 49 
Regel: 2950 - 52 
Regel: 2960 - 252 
Regel: 2970 - 9 

Regel: 2980 - 115 
Regel: 2990 - 14B 
Regel: 3000 - 218 
Regel: 3010 - 142 
Regel: 3020 - 58 
Regel: 3030 - 58 
Regel: 3040 - 31 
Regel: 3050 - 40' 
Regel: 3060 - 44 
Regel: 3070 - 52 
Regel: 3080 - 200 ' 
Regel: 3090 - 9 - 

Regel: 3100 - 71 


Regel: 3110 - 126 
Reoel: 3120 - 220 
Regel: 3130 - 142 
Regel: 3140 - 5B 
Regel: 3150 - 58 
Regel: 3160 - 75 
Regel: 3170 - 51" 
Regel: 3180 - 75 
Regel: 3190 - 51 
Regel: 3200 - 77 
Regel: 3210 - 88 
Regel: 3220 - 77 
Regel: 3230 - BB 
Regel: 3240 - 79 
Regel: 3250 - 194 
Regel: 3260 - 78 
Regel: 3270 - 194 
Regel: 3280 - 142 
Regel: 3290 - 58 
Regel: 3300 - 58 
Regel: 3310 - 58 
Regel: 3320 - 171 
Regel: 3330 - 58 
Regel: 3340 - 234 
Regel: 3350 - 131 
Regel: 3360 - 20 
Regel: 3370 - 20 
Regel: 3380 - 131 
Regel: 3390 - 200 
Regel: 3400 - 181 
Regel: 3410 - 125 
Regel: 3420 - 133 
Regel: 3430 - 151 
Regel: 3440 - 17 
Regel: 3450 - 58 
Regel: 3460 - 58 
Regel: 3470 - 192 
Regel: 3480 - 52 
Regel: 3490 - 63 
Regel: 3500 - 20 
Regel: 3510 - 6 

Regel: 3520 - 55 
Regel: 3530 - 60 
Regel: 3540 - 181 
Regel: 3550 - 151 
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Regel: 3560 - 157 
Regel: 3570 - 182 
Regel: 3580 - 182 
Reqel: 3590 - 58 
Regel: 3600 - 58 
Reqel: 3610 - 90 
Regel: 3620 - 247 
Regel: 3630 - 6 
Regel: 3640 - 125 
Regel: 3650 - 131 
Regel: 3660 - 97 
Regel: 3670 * 58 
Regel: 3680 - 58 
Regel: 3690 - 90 
Regel: 3700 - 247 
Regel: 3710 - 6 
Regel: 3720 - 254 
Regel: 3730 - 131 
Regel: 3740 - 90 
Regel: 3750 - 130 
Regel: 3760 - 131 
Regel: 3770 - 244 
Regel: 37BO - 240 
Regel: 3790 - 241 
Regel: 3800 - 12 
Regel: 3810 - 246 
Regel: 3820 - 28 
Regel: 3830 - 165 
Regel: 3840 - 171 
Regel: 3850 - 93 
Regel: 3860 - 188 
Regel: 3870 - 131 
Regel: 3880 - 29 
Regel: 3890 - 132 
Regel: 3900 - 91 
Regel: 3910 - 58 
Regel: 3920 - 199 
Regel: 3930 - 131 
Regel: 3940 - 42 
Regel: 3950 - 211 
Regel: 3960 - 140 
Regel: 3970 - 26 
Regel: 3980 - 140 
Regel: 3990 - 80 
Regel: 4000 - 162 
Reqel: 4010 - 155 
Regel: 4020 - 233 
Regel: 4030 - 229 
Regel: 4040 - 1 
Regel: 4050 - BO 
Regel: 4060 - 19B 
Regel: 4070 - 102 
Regel: 4080 - 131 
Regel: 4090 - 207 
Regel: 4100 - 7 
Regel: 4110 - BB 
Regel: 4120 - 151 
Regel: 4130 - 203 
Regel: 4140 - 2 
Regel: 4150 - 253 
Regel: 4160 - 58 
Regel: 4170 - 58 
Regel: 4180 - 90 
Regel: 4190 - 208 
Regel: 4200 - 16 
Regel: 4210 - 31 
Regel: 4220 - 71 
Regel: 4230 - 35 
Regel: 4240 - 53 
Regel: 4250 - 18 
Regel: 4260 - 64 
Regel: 4270 - 142 
Regel: 4280 - 58 
Regel: 4290 - 58 
Regel: 4300 - 125 
Regel: 4310 - 219 
Regel: 4320 - 237 
Regel: 4330 - 180 
Regel: 4340 - 190 
Regel: 4350 - 200 
Regel: 4360 - 210 
Regel: 4370 * 142 
Regel: 4380 - 5B 
Regel: 4390 - 58 
Regel: 4400 - 58 
Regel: 4410 - 58 
Regel: 4420 - 60 
Regel: 4430 - 115 
Regel: 4440 - 79 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Reqel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 

Reqel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Reqel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege 

Regel 

Rege' 



Regel 

Regel 

Rege 



Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

45B0 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4B60 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 


5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 


78 
168 

47 

24 

200 

12 

173 

249 
241 

137 

138 
202 
203 

44 

45 
26 
27 

211 

212 

251 

58 

6 

20 

34 
40 
44 

246 
222 
223 

18 

18 

82 

79 
145 
133 

167 
138 
178 
178 
229 
219 

168 
142 

58 

58 

1 

208 

71 

35 
53 
18 

142 

58 

58 

1 

142 

58 

58 

1 

250 
190 
249 

0 

247 
11 
22 
24 
56 
58 
142 

58 

58 

1 

244 

55 

169 

171 

142 

58 

58 

1 

210 

113 

240 

• 13 

• 20 
14 

■ 49 

■ 20 


Regel: 5340 - 22 
Regel: 5350 - 28 
Regel: 5360 - 142 
Regel: 5370 - 58 
Regel: 53B0 - 58 
Regel: 5390 - 1 

Regel: 5400 - 248 
Regel: 5410 - 190 
Regel: 5420 - 232 
Regel: 5430 - 35 
Regel: 5440 - 53 
Regel: 5450 - 52 
Regel: 5460 - 247 
Regel: 5470 - 142 
Regel: 5480 - 58 
Regel: 5490 - 58 
Regel: 5500 - 1 

Regel: 5510 - 251 
Regel: 5520 - 170 
Regel: 5530 - 94 
Regel: 5540 - 168 
Regel: 5550 - 35 
Regel: 5560 - 53 
Regel: 5570 - 171 
Regel: 5580 - 171 
Regel: 5590 - 142 
Regel: 5600 - 58 
Regel: 5610 - 58 
Regel: 5620 - 1 

Regel: 5630 - 246 
Regel: 5640 - 176" 
Regel: 5650 - 32 
Regel: 5660 - 104 
Regel: 5670 - 142 
Regel: 5680 - 58 
Regel: 5690 - 58 
Regel: 5700 - 170 
Regel: 5710 - 74 
Regel: 5720 - 21B 
Regel: 5730 - 170 
Totaal: 63688 





DISKETTES 

De programma's nit de MSX Gids zijn ook op 
diskette leverbaar. 


Er zijn alleen 80-track diskettes ver- 
krijgbaar; formaat 3.5 en 5.25. 40-track 
is niet leverbaar! 


Diskette nr. 1 bevat de belangrijkste 
programma's van MSX-Gids 1 t/m 3. Een ver- 
zameldiskette dus. 

Diskette nr. 4 bevat alle programma's uit 
de MSX GIDS nr.4, diskete nr. 5 uit MSX 
Gids nr. 5 enz. enz. 

De diskettes starten automatisch op en 
zijn geheel menu-gestuurd met diverse 
keuze mogelijkheden en schermen. Alles in 
hi-res graphics. D.m.v een letter-keuze- 
raenu kunnen de programme's geladen of op- 
gestart worden. 

Het menu bevat ook een overzichts 
programma, dat geschikt is voor twee 
drives en verder zijn er nog enige infor- 
tnatie- en advertent iepagina"s op de dis¬ 
kette aanwezig. 

De 3.5 diskettes kosten FI. 25,00 p.st. en 
de 5.25 versie kost FI. 17,50. 

Deze prijs is incl. verzendkosten (in 
speciale diskette verpakking). 

Bestellen door overmaking op giro 909515 
t.n.v. A.Debels te Amsterdam. 

Voor Belgie is de prijs BFr. 470 voor de 
3.5 versie en BFr. 280 voor de 5.25 
versie, en betalingen kunnen geschieden 
op rek.nr. 235-0430464-87 bij de Generale 
Bankmij. te Hasselt t.n.v. J.Herps, 
postbus 10252, 1001 EF Amsterdam. 

***** Vergeet niet het nummer van de 

diskette te vermelden!!! 

***** NOGMAALS: ALLEEN 80 TRACK DISKETTES 

***** l n l. Tel. 020-320807 

(tussen 12.00 uur en 20.00 uur) 

Setluuwe 

DISKETTES 
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THE ATTACK OF THE 
MISERABLE ALIENS 

H—i■ iinin n mu i i ■ M i , t ija 

Zoals de titel al aangeeft is dit een 
spel met een buitena&rdse reukje, 

Ditmaal bent u de kanonnier van de 
planeet Copernicus VI, Voor diegene die 
nog nooit van deze planeet gehoord 
heeft, bet is een zuster-planeet van 
Copernicus V. 

De bedoeling van bet spel is nw planeet 
te verlessen van de MISERABLE ALIENS, 

De vloot van de MISERABLE ALIENS is 20 
moedersebepen plus ontelbaar veel 
vrachtschepen groot, 

Nu zijn deze moedersebepen nogal laf. 

Zij laten namelijk de vrachtschepen (die 
veel zwakker maar talrijker zijn) 
voorgaan, 

De vloot vrachtschepen groeit konstant 
aan en komt stilaan naar beneden. 

Als een van die vrachtschepen er in 
slaagt in de bergen te landen is uw 
planeet overwonnen. 

Dit is dan ook bet eerste dat men moet 
vermij den. 

Het hoofddoel is echter wel bet 
vernletigen van de 20 moedersebepen. Het 
moederschip sebiet konstant bommetjes 
af, Zodat men het best voordurend in 
beweging blijft. Indien men dit niet 
doet is de kans zeer groot dat een van 
deze bommetjes uw kanon raakt. Nadat dit 
zo 01 en bij de drie keer gebeurt is 
komt men dan plotseling tot de 
ontdekking dat men over geen enkel kanon 
meer beschikt, Zodoenae is het spel dan 
oak afgelopen en verliest men 75 punten. 
De munitie is onbeperkt, Zodat men zicb 
daar geen zorgen om moet maken. 

Ook de moedersebepen beschikken over een 
onbeperkt aantal bommetjes. 

Elke maal dat u een moederschip hebt 
weten te treffen krijgt men een bonus 
van 50 punten. Nadat deze bonus bij uw 
score is opgetelt komt er een nieuw 
moederschip en een nieuwe en grotere 
vloot vrachtschepen. De snelheid waarmee 
de vrachtschepen verschuiven wordt ook 
grater. 

Om het spel te spelen is er keuze uit 
het toetsenbord of een joystick in poort 
1 . 

Dit voor wat bet spel betreft. 

HET PROGRAMMA. 

Het programma is een kombinatie van 

BASIC en K.taal. Ook wel eens een 
hybride genoemd. 

Het tekenen van het scherm wordt met de 
gewone BASIC instrukties gedaan, Bebalve 
bet kleurgeheugen. Dit wordt gedaan in 
MACHINE TAAL omdat dit anders zeer veel 


tijd vergt, 

Ook het beginscherm en bet keuzeseberm 
zijn in BASIC gesebreven, 

Enkel de boofdlus is voor een groot deel 
in MACHINE TAAL gesebreven. Zodat dit 
spel een redelijke snelheid heeft. Dit 
is bij dit soort spelen wel 
noodzakelijk. 

Het verschuiven en aangroeien van de 
vloot vrachtschepen wordt ook gedaan in 
MACHINE TAAL. Het aanroepen gebeurt door 
middel van de instruktie ON INTERVAL*! 
GQSUB, Elke maal men een moederschip 
geraakt heeft wordt de waarde T 
vermindert, Zodat bet verschuiven en 
aangroeien van de vloot steeds rapper na 
elkaar gebeurt. 

In bet programma is ook een soort 
chexsum ingebouwd die test als de 
MACHINE TAAL data’s goed ingetikt zijn. 
Dit geeft echter geen volledige 
garantie, docb zal in veel gevallen wel 
volstaan. 

Ik wens je veel sukses met de 
verdediging van Copernicus VI en tot een 
volgende keer. 

Martin Buysse. 

Beeldscherm: WIDTH 36 


10 *%%%%%%%%%%%%%%%%%%%%%%%%% 


20 THE ATTACK OF THE * 
30 ** MISERABLE ALIENS # 
40 ? * * 
50 *t Martin Buysse # 
60 p # St Sebastiaanstr 5 * 
70 9968 Bassevelde # 
80 "* BELGIE * 


90 * ######################### 

95 FOR 1=1 TO3000:NEXTI 

96 FOR I=&HFD9A TO &HFFCA STEPS! POKE 
1,201!NEXT sCLEAR200,&HF3B0 

100 SQUND6,255 s B0UND7,7 
110 SOUNDB,IBs SOUND11,158 
120 SOUND12,60 
130 COLOR 4,1,1iSCREEN2 
140 OPEN"GRP!" AS #1 
150 F0RI=1T08 STEP 2 

160 LINE <14+1,10+1)-<225-1,70-1),4, 
B 

170 NEXT:COLOR 11 

180 PRESET<50,30)!PRINT#1,"THE ATTAC 
K OF THE 11 

190 PRESET<54,42)!PRINT#1,"MISERABLE 
ALIENS" 

200 PRESET<10,140):PRINT#1,"Geschrev 
en door!“ 

210 PRESET<20,160):PRINT#1,"Martin B 
uysse 11 

220 PRESET <110,180)sPRINT# 1, "< c) 198 

6 MSX-gids” 

230 RESTORE 1850:FORI=&HF2B6TQ&HF37F 
i READ AS i POKE I, VAL < 11 &H 11 + AS) : CO=CO+VA 
L < M &H"+AS) : NEXT 
240 REM 

250 REM Keuze menu 
260 REM 

270 SCREEN0!COLOR 15,4,7!WIDTH 40!KE 
Y OFF s POKE&HFCAB,255 

280 LOCATE 1,2s PRINT"THE ATTACK OF T 
HE MISERABLE ALIENS”- 
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290 LOCATE 5,5sPRINT”5peelt u met ee 
n joystick {j/n>?" 

300 I*=INKEY*sIF I*=”,3 ,, THEN POKE &HF 
351 5 1:BOTO 320 
310'IF |"THEN300 ELSE340 
320 LOCATES,10sPRINT”Schietknop 1 of 
2 < 1 / 2 > ?” 

330 I$=INKEY*s IF I$=”1” THEN POKE&HF 
2EB, 1 ELBE IF I*=”2” THEN P0KE&HF2EB 
,3s ELSE 330 

340 IF C0O22726 THEN LOCATES, 15 s PR I 
NT"U hebt een fout gemaakt bij het 

intikken van de data 5 s”sEND 
350 COLOR 15,1,1s 5CREEN2 
360 REM 

370 REM Scherm tekenen + M.taal star 
t adressen zetten 
380 REM 

390 DEF USR0-&HF350!*KANON BESTURING 

400 DEF USR1=8<HF32B: 81 BOM 

410 DEF USR2=&HF2E0: 81 RAKET 

420 DEF USR3=S<HF2AF: “ VERSCHUIVEN 

430 DEF USR4=&HF299: 81 KLEUR GEHEUGEN 

ZETTEN 

440 DEF UBR5=&HF2B6: ? HOOFD ROUTINE 

450 L=3:V=1:T=300:D=760 

460 FOR I=256T0D STEP 8 

470 VPOKEI,0 

480 VPDKEI+1,&H8 

490 VPOKEI+2,&H3E 

500 VPOKE I +3, &H7F 

510 VPOKEI+4,&H6B 

520 VPOKEI+5,&H3E 

530 VPOKEI+6,&H0 

540 VPOKEI+7,0 

550 NEXT 

560 DUMY=USR4(0) 

570 LINE<255,191)~<0,180),2,BF 
580 LINE <255, 179)-<0, 179) , 14 
590 DRAW‘bm0,156" 

600 DRAW”e6 cl4 fl0 r3 f 20 r3 el3 u2 
el0 r5 ul f7 r 1 e4 f7 r 1 f6 r4 fl0” 
610 PAINT <5,170),14 
620 PAINT<65,170),14 
630 LINE <189,179)-<189,131),4 
640 LINE(191,179)~ <191j131) ,4 
650 PSET <190,130),4 
660 PSET(190,179),4 
670 PAINT<190,131),4 
680 LINE(240,179)-<240,131),4 
690 LINE(242,179)-(242,131),4 
700 PSET<241,130),4 
710 PSET(241,179) ,4 
720 PAINT<241,131) ,4 
730 LINE (192, 133)-'<239, 163) ,6,BF 
740 COLOR 11s PSET(195,i36),6 s PRINT#1 
,"score" 

750 LINE <237,155)-<197,146),6,BFsPRI 
NT#1,SC 

760 DRAWBM85, 175" 

770 DRAW”c 14 e4 r7 gl r2 e6 r5 el0 r 
2 e2 rl d3 e2 f4 d2 e3 f9 d3 f9” 

780 PAINT<120,175),14 
790 DRAW M bml6,160” 

800 DRAW "cl g4 12 g3 dl g4 14" 

810 DRAW”bml07,165” 

820 DRAW” cl f 3 d2 f2 r3 f3 rl f4” 
830 DRAW”bml29,160” 

840 DRAW” cl I 1 g3 dl g2 12 gl 11 g4 

II 

850 DRAW”bm79,160” 

860 DRAW'cl 11 g3 12 dl g4 11 dl gl 
g5 dl g4” 

870 DRAW”bm56,167” 

880 DRAW’cl rl f2 r2 dl f2 r2 ” 

890 VPOKE3066,0 
900 REM 


910 REM sprite’s vormen + sprite dat 
920 REM 

930 RESTORE 970:FORI=0TO6:A*=”” 

940 FORJ-0TO7:READ A 

950 A$=AS+CHRS(A)s NEXT 

960 SPRITE* < I) =A$: NEXT 

970 DATA 24,24,24,24,90,126,90,0 

980 DATA 20,8,8,8,8,0,0,0 

990 DATA 00,66,195,231,255,102,60,24 

1000 DATA 8,8,8,8,20,0,0,0 

1010 DATA 0,0,20,40,20,40,0,0 

1020 DATA 0,20,42,68,34,84,40,0 

1030 DATA 20,42,65, 130,65,'130,84,40 

1040 FORI“255TO100 STEP-1 

1050 PUT SPR1TE0,(I,182),15,0 

1060 FORl 7~1 T010s NEXTJ, I 

1070 FORI-255T0100 STEP -1 

1080 PUT SPRITE2,(I,0),15,2 

1090 FDRJ=1TO10:NEXTJ,I 

1100 PUT SPRITE1,<100,8),15,1 

1110 ON INTERVALS GOSUB 1240SINTERV 

AL ON 

1120 ON SPRITE GOSUB 1290:SPRITE ON 
1130 REM 

1140 REM Hoofdlus 
1150 REM 

1160 DUMY-USR5 <0):DUMY=USR2<0):DUMY= 
USR2(0) 

1170 IF V=1THEN IF VPEEK(&H1B09)>VPE 
EK < &H 1B01) THEN VPOKE8<H 1B09, VPEEK < &H 1 
B09)-2 ELSE IF VPEEK <&H1B09)<VPEEK <& 
H1B01) THEN VPOKE&H 1B09, VPEEK < &H 1B09) 
+2 

1180 DUMY ks USR2 < 0) 

1190 IFPOI NT < VPEEK (8<H 1B0D) +3, VPEEK < 

H1B0C)+3)=15 THENPAINT < VPEEK <fcH1B0D) 
+3,VPEEK < &H1B0C)+3),1s PQKE&HF32A,lsY 
-VPEEK (8<H1B0C) -3s VPOKE&H 1B0C, 207s X=V 
PEEK (8<H1B0D) s SC-SC+1 s LINE <237, 155)-< 
197,146),6,BFs PRINT#1,SCsSOUND13,9:6 
OSUB1560 

1200 DUMY-USR1< 0)s GOTO1160 
1210 REM 

1220 REM On interval subroutine 
1230 REM 

1240 DUMY-USR3< 0)sIF VPEEK < 3066)< >0T 
HEN Q-VPEEK(3066):GOTO 1630 
1250 RETURN 
1260 REM 

1270 REM On sprite subroutine 
1280 REM 

1290 SPRITE OFF:S0UND13,9 
1300 IF VPEEK(&H1B04)= >17B THEN 1310 
ELBE 1410 

1310 L-L-isIF L=0THEN 1630 
1320 Y=VPEEK < &H1B00)sX=VPEEK<&H1B01) 
1330 VPOKE&H1B04,191s VPGKE&H1B00,207 
: 0=VPEEK < 8<H 1B08 > ' 

1340 VPOKE&H1B08,207 s GOSUB1560 
1350 INTERVAL OFF 

1360 PSET <2,125),1s PRINT#1,”U werd 
geraakt." 

1370 IF L>1THEN PSET <2,141),1sPRINT 

#1,”U hebt nog”; Lj "kanonnen”sGOTO139 
0 

1380 PSET <2,141),lsPRINT#l,”U hebt 
nog";L;"kanoh" 

1390 FORI=lTO2000sNEXT:LINE<0,125)-< 
180,149),1,BF 

1400 FOR 1=255 TO VPEEK (8<H1 B09) STEP- 
IsPUT SPRITE0,(1,182),15,0:FORD=1T01 
0SNEXT:NEXTsINTERVAL ONs VPOKE&H1B0B, 
0:RETURN 

1410 IF VPEEK (StH 1B0C) =<7 THEN 1420 E 
LSE GOTO 1550 
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1420 INTERVAL. OFFB POKE &HF298, 1: V*=0: 
VPOKE&H1B08, 207:Y-VPEEK(&H1B0C)~3: X = 
VPEEK (&H1B09) 

1430 VPOKE&H1B0C,207:GOSUB1560:T=T-1 
3:INTERVAL OFF:LINE <0,0)-<255, 129),1 
, BF 

1440 P0KE&HF32A, 1 s VPOKE&H1B0C, 207: VP 
OKEStH 1B00 , 207: VPOKE&H 1B04,191' 

1450 PRESET < 0,10):PRINT# 1, " U verniet 
igde z o juist" 

1460 PRESET (0, 20) : PR I NT# 1 , "het: vijan 
dige moecierschi p ! " 

1470 PRESET(0,30):PRINTttl,"Als belon 
ing krijgt u een bonus," 

1480 FORI = 1TO50:BEEP:LINE(237,155) - ( 
197,146),6,BF 

1490 SOSC+1: PR I NT# i , SC s FOR,) -1TD20: N 

E X T:NE X T 

1500 E*E+leIF E«20 THEN 1630 
1510 S0UND6, 255:SOUND7,7 
1520 SOUNDS,18:SOUND11,158 
1530 SOUND 12,60 

1540 FGRI-1TO500:NEXT:CLS:COLOR 15,1 
,1:V-1:D=D+128:P0KE&HF29B, 0 :GOTO460 
1550 P0KE&HF32A, 1: Y= (VPEEK (?<H1 B04)+V 
PEEK (&H1B0C) ) / 2 s X«VPEEK (&H1B05) : VPOK 
E&H 1B04, &HBF: VPOKE&H 1B0C, 207 
1560 PUT SPRITE 4,(X,Y),15:FORI-1701 
5:NEXT:PUT SPRITE 5,(X,Y),15:PUT SPR 
ITE 4,(0,207):FORI=1TO10:NEXT 
1570 PUT'SPRITE 6,(X,Y>,15::PUT SPRI 
TE 5,(0,207):FGRI=1TO10:NEXT:PUT SPR 
ITE 5, < X, Y),9s 

1580 PUT SPRITE 6, (0,207):FOR1 = 1 TO10 
:NEXT:PUT SPRITE 4,(X,Y),6:PUT SPRIT 
E 5,(0,207):FORI=1TO15:NEXT:PUT SPRI 
TE 4,(0,207) 

1590'SPRITE ON:RETURN 
1600 REM 
1610 REM Einde 
1620 REM 

1630 INTERVAL OFF:COLOR 15,4,7:SCREE 
N0:WIDTH40:KEY OFF:PDKE&HFCAB,255 
1640 IF Q 35 0THEN 1670 

1650 LOCATES,5:PRINT"De vrachtschepe 
n zijn geland'* 

1660 LOCATES,10:PRINT"Uw score wordt 
als stra-f vermindert met 10 

0 punten":SC=SC-100:GOTO 1750 
1670 IF E< >20 THEN 1710 
1680 LOCATE 5,5:PRINT"U vernietigde 
het moederschip" 

1690 LOCATES,6:PRINT"20 maal . U verd 
lent een bonus" 

1700 LOCATE 10,7:PRINT"van 100 punten 
" : 5C=SC+100:GOTO 1750 

1710 LOCATES,5:PRINT"U hebt al uw ka 
nonnen verloren" 

1720 LOCATE 10,6:PRINT"in de strijd," 

1730 LOCATES,7:PRINT"uw score wordt 

■■ 

v&frni nd^rt 1 * 

1740 LOCATE 10,8:PRINT"met 75 punten. 
":SC=SC“75 

1750 LOCATES,12:PRINT"Uw score bedra 
agt";SCj"punten" 

1760 LOCATES,17:PRINT"WiIt u nogmaal 
s spelen •CJ/N)-" 

1770 IINKEYSsIF I$=""THEN1770 
1780 IF I^=s"N"THEN END 
1790 IF I"THEN RUN:ELSE GOTO 177 
0 

1800 REM 

1810 REM MACHINE TAAL. DATA'S 
1820 REM 

1830 REM Hoo-fd routine 
1840 REM 


1850 DATA 
ub r outin e 
1860 DATA 
ubroutine 
1870 DATA 


DATA 
DATA 
DATA 
DATA 
ubroutine 
1920 DATA 


1880 

1890 

1900 

1910 


CD,50,F3:REM 
"KANNON" 

CD,E0,F2:REM 
"RAKKET" 

3A,98,F2:REM 
FE,00 :REM 
28,01 :REM 
C9 :REM 

CD,2B,F3:REM 
"BOM"' 


CALL &HF350 s 


CALL &HF2E0 s 


(S-- 


) 


L.D A, 

CP 00 
JR 01 
RETURN 

CALL $<HF32B s 


C9 

00 


REM 

REM 

de 


RETURN 
Dit is een 
subroutine 


by 

"B 


ZETTEN 


1930 DATA 

te die aangee-ft als 
DM" al dan niet moet aangeroepen wor 

den. 

REM 

REM KLEUREN GEHEUGEN 
REM 

21,00,20:REM 
3EiFl :REM 
06,30 ;REM 

C5 :REM 

06,80 :REM 

F5 :REM 

CD,4D,00:REM 


1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


LD 

LD 

LD 


HL,&H2000 

A, ?<HF 1 

B, &H30 
PUSH'BC 
LD B,8«H80 
PUSH AF 

CALL &H004D D 


it is de subroutine "WRTVRM 1 


2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


23 

FI 

10, F8 
Cl 

10,F2 
C9 


REM 

REM 

REM 

REM 

REM 

REM 


INC HL 
POP AF 
DJNZ &HF8 
POP BC 
DJNZ &HF2 
RETURN 


REM 

REM VERSCH4IVEN 
REM 

21,00,01:REM 
01 ,F8,08:REM 
11,00,08:REM 
CD,59,00:REM 


DATA 

DATA 

DATA 

DATA 


LD HL, 8<H0100 
LD BC,&H08F8 
LD DE,&HD800 
CALL l<H0059 D 


it is de subroutine "LDIRMV" 


2170 

2180 

2190 

2200 


DATA 

DATA 

DATA 

DATA 


2 


1,00,D8 
01,F8,08 
11,08,01 
CD,5C,00 


REM LD HL,&HDB00 
REM LD BC,&H08F8 
REM LD DE,&H010B 
REM CALL S<H005C D 


it is de subroutine "LDIRVM" 


2210 
2220 
2230 
2240 
50 


DATA 

DATA 

DATA 

DATA 

DATA 


21 , 00,01 
11,D8,F2 
06,08 
1A 

CD,4D,00 


REM LD HL,&H0100 
REM LD DE,8<HF2DB 
REM LD B,08 
REM LD A,(DE) 

REM CALL &H004D D 


it is de subroutine "WRTVRM’ 


2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

REM 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 


23 

13 

10,F8 

C9 

00:REM 
08:REM 
3E:REM 
7F:REM 
6B:REM 
3E:REM 
00:REM 
00:REM 


REM 
REM 
REM 
REM 
Dit zijn 
data's 


INC HL. 

INC DE 
DJNZ S<HF8 
RETURN 
de 


van het 
bitpatroon 
van de 

vrachtschepen 


3A,2A,F3 
FE, 00 
28 j 24 
3E, 00 
CD,D8,00 


REM LD A,(&HF32A) 
REM CP 00 
REM JR Z,&H24 
REM LD A^ 00 
REM CALL. &H00D8 D 


it is de subroutine "GTTRIG" 


2460 

2470 

2480 

2490 

2500 


DATA 

DATA 

DATA 

DATA 

DATA 


FE, FF 

28i 01 

C9 

3E, 00 
32,2A, 


F3 


REM CP &HFF 

REM JR Z,01 

REM RETURN 

REM LD A,00 

REM LD (&HF32A),A 

r 
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2510 DATA 21,01,IB: 
2520 DATA CD,4A,00! 
it is de subroutine 
2530 DATA 21,0D,1B: 
2540 DATA CD,4D,00: 
it is de subroutine 
2550 DATA 3E,AE : 
2560 DATA 21,0C,1B: 
2570 DATA CD,4D,00: 
it is de subroutine 
2580 DATA C9 : 

2590 DATA 21,0C,1B: 
2600 DATA CD,4A,00: 

i 1 i* 

it is de subroutine 
2610 DATA FE, 00 
2620 DATA 28,07 
2630 DATA 3D 
2640 DATA 3D 
2650 DATA 00 
2660 DATA CD,4D,00 
it is de subroutine 
2670 DATA C9 
26B0 DATA 3E,01 
2690 DATA 32,2A,F3 
2700 DATA 21,0C,1B 
2710 DATA 3E,CF 
2720 DATA CD,4D,00 
it is de subroutine 
2730 DATA C9 
2740 DATA 01 
te die aangee-ft als 
niet onderweg is 
2750 REM 
2760 REM BDM 
2770 REM 

2780 DATA 21,04,IB: 
2790 DATA CD,4A,00: 
it is de subroutine 
2B00 DATA FE,BF 
2810 DATA 28,09 
2820 DATA 3C‘ 

2830 DATA 3C 
2840 DATA 3C 
2B50 DATA 00 
2860 DATA 00 
2870 DATA CD,4D,00 
it is de subroutine 
2B80 DATA C9 : 

2890 DATA 3E,08 : 

2900 DATA CD,4D,00: 
it is de subroutine 
2910 DATA 21,09,IB: 
2920 DATA CD,4A,00: 
it is de subroutine 
2930 DATA 21,05,18: 
2940 DATA CD,4D,00: 
it is de subroutine 
2950 DATA C9 : 

2960 REM 
2970 REM KANDN 
2980 REM 

2990 DATA 3E,00 : 

3000 DATA CD,D5,00: 
it is de subroutine 
3010 DATA FE,03 : 

3020 DATA CC,60,F3: 
ubroutine "KANARE" 
3030 DATA FE,07 ; 

3040 DATA CC,70,F3: 
ubroutine "KANALI" 
3050 DATA C9 : 

3060 REM 

3070 REM Kanon naar 
3080 REM 

3090 DATA 21,01,IB: 
3100 DATA CD,4A,00: 
it is de subroutine 


REM LD Hi., ?<H 1B01 
REM CALL &H004A D 
"RDVRM" 

REM LD HL,&H1B0D 
REM CALL 8<H004D D 
"WRTVRM" 

REM LD A,&HAE 
REM LD HL, &H1B0C 
REM CALL S/.H004D D 
"WRTVRM" 

REM RETURN 
REM LD HL,S ( H1B0C 
REM CALL &H004A D 
"RDVRM" 

REM CP 00 
REM JR Z , &H07 
REM DEC A 
REM DEC A 
REM NOP 

REM CALL &H004D D 
"WRTVRM" 

REM RETURN 
REM LD A,01 
REM LD (&HF32A),A 
REM LD HL, 8<H1B0C 
REM LD A, &HCF 
REM CALL &H004D D 
"WRTVRM" 

REM RETURN 
REM Dit is een by 
de raket al dan 


REM LD HL,&H1B04 
REM CALL &H004A D 
"RDVRM" 

REM CP &HBE 
REM JR Z , S<H09 
REM INC A 
REM INC A 
REM INC A 
REM NOP 
REM NOP 

REM CALL &H004D D 
"WRTVRM" 

REM RETURN 
REM LD A,08 
REM CALL &H004D D 
"WRTVRM" 

REM LD HL, 8<H 1B09 
REM CALL &H004A D 
"RDVRM" 

REM LD HL, &H1B05 
REM CALL &H004D D 
"WRTVRM" 

REM RETURN 


REM LD A,00 
REM CALL ' &H005D D 
"GTSTCK" 

REM CP &H03 

REM JP Z,&HF360 s 

REM CP &H07 

REM JP Z, &HF370 s 

REM RETURN 

rechts "KANARE" 

REM LD HL,fcHlB01 
REM CALL &H004A D 
"RDVRM" 


31 10 
3120 
3130 
3140 
3150 
it i 
3160 
3170 
3180 
3190 


DATA FE,FA 
DATA 28,05 


REM CP &HFA 

REM JR Z,05 

REM INC A 

REM INC A 

REM CALL &H004D D 


DATA 3C 
DATA 3C 
DATA CD,4D,00 
> de subroutine "WRTVRM" 

DATA C9 :REM RETURN 

REM 

REM Kannon naar links "KANALI" 
REM 


3200 DATA 21,01, IB: REM LD HL,?<H1B01 
3210 DATA CD, 4A, 00: REM CALL &H004A D 


it is de subroutine 
3220 DATA FE,00 : 

3230 DATA 2B,02 : 

3240 DATA 3D 
3250 DATA 3D 
3260 DATA CD,4D,00: 
it is de subroutine 


"RDVRM" 

REM CP 00 
REM JR Z,02 
REM DEC A 
REM DEC A 
REM CALL &H004D D 
"WRTVRM" 


3270 DATA C9 :REM RETURN 
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Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel: 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel i 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regeli 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel} 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 


10 

20 

30 

40 

50 

60 

70 

80 

90 

95 

96 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


58 

58 

58 

58 

5B 

58 

58 

58 

56 

202 

167 

111 

27 

86 

128 

32 

237 

207 

180 

141 
158 
124 
136 

136 
42 

0 

0 

0 

145 

87 

13 

137 
190 
219 
210 

142 
137 

0 

0 

0 

87 

51 

232 


Regel: 

Regel: 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


420 

430 

440 

450 

460 

470 

4B0 

490 

500 

510 

520 

530 

540 

550 

560 

570 

5B0 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 


1B4 Regel: 860 - 145 

163 Regel: 870 - 6 

145 Regel: 880 - 38 

41 Regel: 890 - 36 

73 Regel: 900 - 0 

76 Regels 910 - 0 

82 Regel: 920 - 0 

137 Regel: 930 - 78 

203 Regel: 940 - 223 

184 Regel: 950 - 142 

140 Regel: 960 - 150 

79 Regel: 970 - 11 

85 Regel: 980 - 170 

131 Regel: 990 - 212 

130 Regel: 1000 - 170 

62 Regel: 1010 - 36 

135 Regel: 1020 - 165 

201 Regel: 1030 - 110 

35 Regel: 1040 - 20 

84 Regel: 1050 * 233 

142 Regel: 1060 - 59 

200 Regel: 1070 - 52 

204 Regel: 1080 - 57 

222 Regel: 1090 - 59 

15 Regel: 1100 - 105 

220 Regel: 1110 - 250 

46 Regel: 1120 - 28 

50 Regel: 1130- 0 

17 Regel: 1140- 0 

66 Regel: 1150 - 0 

15 Regel: 1160 - 247 

165 Regel: 1170 - 12 

168 Regel: 1180 - 128 

111 Regel: 1190 - 2 

199 Regel: 1200 - 220 

57 Regel: 1210 - 0 

202 Regel: 1220 - 0 

27 Reget: 1230 - 0 

25 Regel: 1240 - 246 

49 Regel: 1250 - 142 

216 Regel: 1260 - 0 

4B Regel: 1270 - 0 

137 Regel: 12B0- 0 

4 Regel: 1290 - 50 

(c) JuniorJ)9 
























Regel 

Re gel 

Regel 

Regel 

Regel 

Rege, 

Rege 

Regel 

Regel 

Rege, 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege 

Regel 

Regel 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege! 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

ftigel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

ftegil 

Regel 

Regel 

Regel 


1300 - B7 
1310 - 40 
1320 - 232 
1330 - 171 
1340 - 242 
1350 - 185 
1360 - 0 
1370 - 203 
13B0- 85 
1390 - 32 
1400 - 158 
1410 - 92 
1420 - 132 
1430 - 79 
1440 - 146 
1450 - 29 
1460 - 202 
1470 - 137 
1480 - 199 
1490 - 93 
1500 - 68 
1510 - 111 
1520 - 27 
1530 - 86 
1340 - 2 
1350 - 236 
1560 - 49 
1570 - 234 
1580 - 193 
1590 - 68 
1600 - 0 
1610 - 0 
1620 - 0 
1630 - 100 
1640 - 144 
1650 - 220 
1660 - 242 
1670 - 205 
1680 - 126 
1690 - 32 
1700 - 122 
1710 - 85 
1720 - 225 
1730 - 25 
1740 - 160 
1750 - 144 
1760 ~ 118 
1770 - 165 


1780 - 

20 

1790 - 

245 

1800 - 

0 

1810 - 

0 

1820 - 

0 

1830 - 

0 

1840 • 

0 

1850 - 

155 

1B60 - 

170 

1870 - 

147 

1880 - 

85 

1890 - 

53 

1900 - 

26 

1910 - 

170 

1920 - 

26 

1930 - 

254 

1940 - 

0 

1950 - 

0 

1960 - 

0 

1970 - 

91 

1980 - 

89 

1990 - 

51 

2000 - 

22 

2010 - 

56 

2020 - 

25 

2030 - 

149 

2040 - 

3 

2050 - 

21 

2060 - 

73 

2070 - 

18 

2080 - 

67 

2090 * 

26 

2100 - 

0 

2110 - 

0 

2120 - 

0 

2130 - 

90 

2140 - 

125 

2150 - 

116 

2160 - 

139 

2170 - 

117 

2180 - 

125 



2190 - 

97 

2200 - 

149 

2210 - 

90 

2220 - 

140 

2230 - 

56 

2240 - 

16 

2250 - 

149 

2260 - 

3 

2270 - 

2 

2280 - 

73 

2290 - 

26 

2300 - 

62 

2310 - 

70 

2320 - 

86 

2330 - 

91 

2340 - 

86 

2350 - 

86 

2360 - 

62 

2370 - 

62 

2380 - 

0 

2390 - 

0 

2400 - 

0 

2410 - 

150 

2420 - 

85 

2430 - 

58 

2440 - 

66 

2450 - 

153 

2460 - 

129 

2470 - 

53 

2480 - 

26 

2490 - 

66 

2500 - 

135 

2510 - 

109 

2520 - 

146 

2530 - 

128 

2540 - 

149 

2550 - 

104 

2560 - 

127 

2570 - 

149 

2580 - 

26 

2590 - 

127 

2600 - 

146 

2610 - 

85 

2620 - 

59 

2630 - 

21 

2640 - 

21 

2650 - 

254 

2660 - 

149 

2670 - 

26 

2680 - 

67 

2690 - 

135 

2700 - 

127 

2710 - 

107 

2720 - 

149 

2730 - 

26 

2740 - 

255 

2750 - 

0 

2760 - 

0 

2770 - 

0 

2780 - 

112 

2790 - 

146 

2800 - 

125 

2810 - 

61 

2820 - 

20 

2830 - 

20 

2840 - 

20 

2850 - 

254 

2860 - 

254 

2870 - 

149 

2880 - 

26 

2890 - 

74 

2900 - 

149 

2910 - 

117 

2920 - 

146 

2930 - 

113 

2940 - 

149 

2950 - 

26 

2960 - 

0 

2970 - 

0 

2980 - 

0 

2990 - 

66 

3000 - 

150 

3010 - 

88 

3020 - 

155 

3030 - 

92 

3040 - 

156 

3050 - 

26 

3060 - 

0 

3070 - 

0 


Regel: 3080 - 0 
Regel: 3090 - 109 
Regel: 3100 - 146 
Regel: 3110 - 124 
Regel; 3120 - 57 
Regel: 3130 - 20 
Regel: 3140 - 20 
Regel: 3150 - 149 
Regel: 3160 - 26 
Regel: 3170- 0 
Regel: 3180 - 0 
Regel: 3190 - 0 
Regel: 3200 - 109 
Regel: 3210 - 146 
Regel: 3220 - 85 
Regel: 3230 - 54 
Regel: 3240 - 21 
Regel: 3250 - 21 
Regel: 3260 - 149 
Regel: 3270 - 26 
Totaal: 30323 


DE COMPUTER ALS TEGENSPELER 
BIJ MASTERMIND 

Mastermind is door velen op programma 
gezet, zowel in getallenversies als in 
kleurversies (die leuker zijn). In het 
dec.-jan. nummer van de MSX-Gids was een 
voorbeeld van een kleurversie opgenomen: 
een fraai programma van Martin Buysse. Wat 
je echtec niet ziet, zijn programma's 
waarin de computer als tegenspeler 
fungeert, dus masterraind-opgaven krijgt 
voorgeschoteld die hij moet oplossen. Dat 
zou het spel echter wel leuker maken. 

Ik vond het een interessante opgave om 
algoritmes te vinden waarmee de computer 
tot een dergelijk 'intelligent gedrag' te 
brengen was. Dat is gelukt, waarbij wel 
vermeld moet worden dat ik uit gegaan ben 
van een beperking in de opgaven. Die is, 
dat de 4 getallen/kleuren die door de 
computer -of de mens- geraden moeten 
worden verschillend dienen te zijn en dat 
de keuze is uit de cijfers 1 t/m 6 resp. 
uit zes kleuren. Het aantal mogelijkheden 
is dan 6!/(6-4)!=6*5*4*3*2/2=360, Als 
dubbelen wel mogen voorkomen is het aantal 
mogelijkheden 6666-1111+1=5556. Het spel 
wordt dan wel erg moeilijk. Wie deze 
beperking niet wil aanvaarden, zal volle- 
dig andere algoritmes moeten bedenken. Ik 
geef in dit stuk alleen de algoritmes. De 
lezer zelf zal die moeten inpassen in een 
programma als dat van martin Buysse. Diens 
regels 410-470 en 810-860 vragen dan wel 

om herziening, oradat hij de genoemde 
beperking niet heeft opgenomen in zijn 
programma. Dan nu de benodigde algoritmes: 

a) Het genereren van de 360 mogelijke 
reeksen. 

Dit moet aan het begin van het spel plaats 
vinden en voor de rest van de speeltijd in 
het geheugen gezet worden (DIM(360,4) of 
DiM(359,3) als men wil). Mijn algoritrae 
hiervoor berust op het tellen van 1234 tot 
6543 in een zestallig stelsel, waarbij ik 
de volgorde van de getallen van rechts 
naar links laat lopen i.p.v. andersom 
zoals we gewend zijn. 

90 £"3:F—3:G—2:H = 1 

100 FORM=!TD360 

110 E=E+1:IFE>6THENE=1:F=F+1 

120 IFF=7THENF=lsG=G+l 

130 IFG SS 6THENG= 1 s H=H+1 

140 IFG-HTHENG-G+1 

150 IFF=BDRF*HTHENF=F+1:GOTO120 

160 IFE-F DRE=GORE=HTHENl10 

170 K(M,1)=E:K(M,2)«F:K(M ? 3)=G:K(M,4 

> =Hs U=1 

180 LOCATE-d- sPRINTK(M,1); K < M, 2); K < M 
,3);K(M,4) 

190 NEXT M 

De print-instructie in 180 kan natuurlijk 
weggelaten worden, raaar verdient aanbeve- 
ling ora het proces zichtbaar te maken en 
het wachten (een halve minuut) te veraan- 

genamen. Met de volgende regel kan wille- 
keurig een reeks uitgekozen worden die 
fungeert of als de eerste gissing van de 
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computer, of als de te raden reeks voor de 
menselijke speler. 

200 M=INT(360*RND(-TIME):N=1:Z=M 
210 FOR I=1T04:C(N,I)=K(M,I):NEXT I 

N is hier het nummer van de gissing; Z 
dient om het reeksnummer van de eerste 
gissing te onthouden. 

b)Het toetsen van de raogelijkheden aan de 
feed-back. 

Na het printen van zijn gissing vraagt de 
computer aan de tegenspeler hoeveel hij er 
goed had (A(N)) en hoeveel hij er op de 
goede plaats had staan (P(N)). Die feed¬ 
back wordt voor elk van de gissingen 
onthouden en alle mogelijke volgende gis¬ 
singen worden eraan getoetst. Zogauw een 
van de mogelijke gissingen in overeen- 
stemming is met de A's en P"s van de 
voorgaande gissingen, wordt deze kansheb- 
ber geprint. Dat toetsen en verwerpen/aan- 
vaarden gaat alsvolgt (de regelnummers 
zijn natuurlijk arbitrair): 


400 N-N+1 s IFM*=360THENM=0 
410 X=M+1sIFX<ZTHEN430 
420 FORM aB XTQ360: T“1 1 GOTO 440 
430 FORM=XTOZ: T-l 

440 B=0:Q=0sLOCATE-,-SPRINT"Reeks "s 
M;" 

450 FORI-1TQ4!IFK(M,I)< >C(T,I>THEN47 

0 

460 Q-Q+Is IFQ >P < T)THEN500 
470 F0RK=lT04sIFK <M,I)<>C<T,K)THEN49 
0 

480 B=B+1sIFB>A <T)THEN500 

490 NEXTK,IsIFB=A(T)ANDQ=P(T)THEN530 

500 IFM-ZTHEN560 

510 IFM=360THENM S =0: GOTO410 

520 NEXT M 

530 IFN=T+1THEN210 

540 T=T+1s GOTO440 

550 ’EINDE CYCLUS EVT.FOUTMELDINBEN 
560 BEEPsLOCATE-,-sPRINT"U HEEFT ERB 
ENS EEN FOUT 6EMAAKT" 

570 PRINT"TYPE UW REEKS IN, DAN ZAL 
IK DE FOUT" 

580 PRINT"AANWIJZEN."SPRINT 

Het toetsen heb ik niet bij reeks 1 laten 
beginnen, raaar bij de reeks pal na de 
eerste gissing, teneinde het spel onvoor- 
spelbaar voor de tegenpartij te houden; 
vandaar regel 400:2, 410-430 en 510. T is 
het rangnummer van de eerder gedane gis¬ 
singen. B correspondeert met A(T) en Q met 
P(T), Een nieuwe gissing raoet allereerst 
met de eerst gedane gissing in overeen- 
stemming zijn (regel 490). Is hij dat, dan 
moet hij vergeleken worden met gissing 
C(2), gesteld dat die al gedaan is (terug 
naar regel 440). Enz. Heeft de verge- 
lijking ale eerder gedane gissingen C(1) 
t/m C(T) 'aangedaan', dan is de eerste de 
beste reeks die dit proces overleefd heeft 
de nieuwe gissing (met behulp van regel 
530 wordt teruggestuurd naar regel 210), 
Is een reeks eenmaal verworpen, dan wordt 
hij niet meer heroverwogen. Dus als de 
computer weer bij reeks Z belandt, zonder 
een logisch mogelijke gissing gevonden te 


hebben, dan volgt de melding dat de 
tegenspeler een foute opgave heeft gedaan 
(wat vrij gemakkeljk kan gebeuren) (regel 
500). Damkzij regel 440:4 kan het 
toetsingsproces een beetje gevolgd worden. 

c) Het opsporen van de foute opgave 
Vie niet met kleuren maar met getallen 
werkt, doet er verstandig aan om een tabel 
te laten printen waarin alie eerdere gis¬ 
singen staan, alsmede de opgegeven A(N) en 
P(N). Dan kan ook nagegaan worden waar men 
een fout in de A- en P-opgave heeft ge- 
maakt. De computer kan daarbij helpen met 
het volgende algoritme: 

590 INPUTC(0,1),C(0,2>,C(0,3),C(0,4) 
600 N=1 
610 B=0:D=0 

620 FOR1-1T04:FORK-I+1T04 
630 1FC < N,I)=C(0,K)THEN650 
640 B**B+1 
650 NEXTK 

660 IFC < N,I)< >C < 0,I)THEN680 
670 Q=D+1 
680 NEXT I 

690 IFA < N)=BANDP(N)=QTHENN=N + 1s G0T06 
10 

700 BEEPsLOCATE”,~!PRINT"BIJ GISSING 
";N;"HAD INGEVULD MOETEN" 

710 PRINT"WORDEN: A="$B5 M EN P~";Q 


Tot slot: Als een lezer een ander 
algoritme weet voor de toetsing in B, 
welke ook reeksen met dubbelen erin 
aankan, dan zal ik dat graag vernemen op 
deze pagina's. 

P.Prudon. 
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Programma’s voor diskdrive: 

INDEX-2 

(tijdschriften en programma’s) 


Let op! Dit programma is alleen geschikt 
voor systemen. met 80-track diskdrive* 

INDEX-IT. 

Eigenlijk zijn hier twee programme's 
gebruikt die zijn samengevoegd en samen 

dezelfde routines gebruiken. Het eerste 
programma is een tijdschriften- index, 
vergelijkbaar met het INDEX programma uit 
Gids nr.l, waarmee programma"s en 
artikelen uit tijdschriften gearchiveerd 
kunnen worden. Het programma heeft een 
opslagcapaciteit van 1500 records. 
(Losgekoppeld van het tweede programma 
zouden ca. 2000 files op een diskette 

geplaatst kunnen worden). 

Het tweede programma is een archief voor 
software. Ook hier weer een opslag van 
1500 files. (Los zou dit programma enkele 
duizenden files aankunnen). 

Vrijwel niemand zal echter zoveel software 
titels in huis hebben; zelf een software- 
leverancier niet, dus het samenvoegen van 
beide programma"s was best mogelijk. We 
hebben nu 2 -toch wel bij elkaar horende- 
programma"s op 1 diskette. Samen met het 
programma is de diskette vrijwel vol. 

Er is nog wel ruimte genoeg voor b.v. een 
kopierprogramma; dat dan vanuit het eerste 
menu kan worden aangeroepen. 0m het 
programma automatisch op te starten kan 
het de naam "AUTOEXEC.BAS' krijgen of kan 
een 1-regelig programaatje -met deze naam- 
op de schijf worden gezet. Zo"n 
programmaatje ziet er dan als volgt uit: 

10 RUN”A:INDEX-2” 

De rubrieken -in het programma- kunen heel 
makkelijk zelf worden gewijzigd. De 
verschillende lengtes (van rubrieken en 
namen) kunnen ook veranderd worden raaar 
dan zal er wat meer in het programma 
"gespit" moeten worden. Ik heb er zelf de 
namen ingevld, die ik voor ons eigen 
archief nodig had, maar iedereen kan dit 
naar believen wijzigen. Verder is het, bij 
dit soort programme's, belangrijk 
regelmatig een back-up kopie bj te 'nouden! 

Het zoeken naar files, en het printen, 
gaat steeds langzamer naarmata het bestand 
volraakt. Dit zoeken gaat met de INSTR$- 
funktie; daardoor hoeven niet de hele 
namen ingevuld te worden als een record 
opgezocht moet worden. Ook kunnen alle 
namen, waarin b.v. het woord "DOS" 

voorkomt geselecteerd worden. 

Uiteraard kan ook direkt -en zeer snel- 
met het recordnummer gezocht worden. 


Het loskoppelen van beide programme's is, 
voor wie grote aantallen nodig heeft, zeer 
eenvoudig te verwezelijken. Ook het 
aanpassen aan eigen -specifieke- 
toepassingen is erg eenvoudig. We zullen 
zelf nog wel eens een paar van dit soort 
programme's publiceren. 

Succes. 


MSX 6IPS TIJDSCHRIFTEN INDEX 

MENU 


ESC = TERUG NAAR MENU - 


1 = INVOEREN GESEVENS 

2 = WIJZIGEN ^ ZOEKEN 

3 = LIJST BEELDSCHERM 

4 = LIJST PRINTER 

5 = EINDE 

Prootrastma verlaten via EINDE <5> ! ! 


WELK NUMMER?: 


MSX 6IPS PROGRAMMA INDEX 
LIJST BEELPSCHERM 


ESC = TERIJG NAAR MENU - 1 


RECORDNUMMER 11 
ON p ERWERPNUMME R 1 


DISK NR 
PR.NAAM 
SVSTEEM 
DATUM 
OPH . : 


Q-BERT 
DISK BAS 1 1 

2 VERSIES 


DP UK EEN TOETSI 

[13=ARCADE £23 
f 4 3=TEKSTVERUII5 3 
c 1 3 =BORDSPEL C3 3 


ADVENTURE 1 3 3=DATA~BASE 
■C ACULATIE16 D-UTILITV 
EDUCATIEF L 9 3 =DIVERSEN 
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ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VODR DISKETTE 
Beeldscherm: WIDTH 73 


10 COLOR 1,10,10:SCREEN 0:WIDTH40 
20 CLEAR 1000 sDEFINT A-Z s KEYOFF 
30 MAXFILES=1 
40 ? 

50 ? 


60 CLS:LOCATE0,0,0 


70 PRINT” 
80 PRINT” 
90 PRINT” 
100 PRINT 
110 PRINT 


MSX INDEX II V 1. 1 

Tijdschriften / programma Index 
<c> 1986 MSX GIDS Amsterdam 


". 
s 

)■ • 
ft 

M 
II 


* 


120 PRINTsPRINT" 1 = TIODSCHRIFTEN INDEX” 

130 PRINTSPRINT" 2 = PROGRAMMA INDEX” 

140 PRINTS PRINT” 3 = EINDE PROGRAMMA" 

150 LOCATE 2,22:PRINT"WELK NUMMER?: ”; 

160 GOSUB 2350 

170 X=VAL<X$):IF X<1 OR X>3 THEN 150 

180 ON X GOTO 200,2820,5130 

190 GOTO 140 

200 FR=1:GOSUB 2540 

210 ’ 

220 ’ 

230 * MENU * 

240 GOSUB 2440 

250 LOCATE1B,3,0:PRINT”MENU” 

260 LOCATE0,8,0 

270 PRINTSPRINT” 1 = INVOEREN GEGEVEN5" 

280 PRINT:PRINT” 2 = WUZIGEN / ZOEKEN” 

290 PRINTsPRINT” 3 = LIJBT BEELDSCHERM” 

300 PRINT s PRINT" 4 = LIJST PRINTER” 

310 PRINT:PRINT” 5 = EINDE” 

320 PRINT:PRINT” Programma verlaten via EINDE (5) !!" 

330 LOCATE 2,22:PRINT”WELK NUMMER?: ”s 
340 GOSUB 2350 

350 X=VAL(X$):IF X<1 OR X>5 THEN 330 
360 ON X GOTO 400,760,1210,1380,1720 
370 GOTO 330 
3B0 * 


390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


11 INVOEREN 
GOSUB 1790 

FOR 1=1 TO 6:X$(I)=”"sNEXT 
LOCATE 13,3:PRINT"DATA INVOEREN” 

N=REC 

IF REO—1500 THEN 690: REM EVT.WIJZIGEN * 


L0CATE16,8,0:PRINT N+l 
LOCATE16,9' 

GOSUB 2350:X=VAL(X$) 

IF X<1 ORX >9 THEN460 
LOCATE16,9:PRINT X 
LOCATE20,9: PRINT 0$(X) 

X$(1)=X* 

FOR 1=2 TO 6 
LOCATE 9,9+1,0 
NR=L(I) 

GOSUB 2180 

IF X$< >" "THEN X$<I)=X1> 

NEXT 

GOSUB 1800:GOSUB 1980 

L0CATE16,8,0:PRINT N+l 

LOCATE 0,19,0:PRINT”INVOEREN? J/N: 

GOSUB 2350 

IF X$="J" OR X$="j"THEN 650 
IF X$="N" OR X$="n"THEN 460 
GOTO 600 


MSX SIPS TIJDSCHRIFTEN INDEX 
DATA NIJZIGEN 

^ ESC = TERUG NAAR MENU 


RECQRDNUMMER: 90 

onderwerpnuHmer= y 

TITEL: NORTH SEA BULION 
BLAD: MAP ORANJE 
UITGAVE: USER 
PAGINA: 

OPM.: KUMA - CASSETTE 


ti 


=BASIC 
=SDFTW.T. 
=HARPWARE 


C 2 3=MACH.TAAL 1 3 D =DOS-CP/M 
C53=ZAKELIJK C6I=SPELLEN 
CS]=EDUCATIEF E 9I=DIVERSEN 


N=N+1:REC=REC+1:GOSUB 2120 
GOTO 400 


? BEBTAND VOL 
CLS 

FOR 1=1 TO 40 

BEEP:PRINT"BESTAND VOL!” 
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720 BEEP:NEXT 

730 GOTO 240 
7 40 ? 

750 ’WIO 1 I GEN 

760 FOR 1 = 1 TO 6: X$ (I):NEXT 
770 GOSUB 1790: NR=4 

780 LOCATE 13,3: PRINT "DATA WIJZIGEN" 

790 LOCATE!6,8,0:GOSUB 2180 
800 IF X$=" "THENB40 

810 X=VAL(X*):IFX<1 OR X>REC THEN780 
820 N=X:GOSUB 2060 
830 GOTO 1010 
840 FOR 1=2 TO 6 
850 LOCATE 9,9+1,0:NR=L<I) 

860 GOSUB 2180 

870 IF X$O m "THEN Y*=X*: Y=I : GOTO 900 
880 NEXT 
890 GOTO 760 
900 FOR N=1 TO REC 
910 GET#1,N s X$ < Y > =N$(Y) 

920 IF INSTR<1,X* < Y>,Y*> «0 THEN 990 
930 GOSUB 2060:GOSUB 1980 
940 LOCATE 0, 19: PRINT"DEZE? J/N:"; 

950 GOSUB 2350 

960 IF X*="J ,, ORX*="j"THEN1010 
970 IF X$= !, N"ORX$="n " THEN990 
980 GOTD940 
990 NEXT 
1000 GOT0760 
1010 GOSIJB 19B0 

1020 LOCATE 17,9s GOSUB2350:IFX$=""THEN1050 
1030 X=VAL<X$): IFX<10RX>9THEN1020 
1040 LOCATE 16,9:PRINTX:LOCATE20,9;PRINTO$ (X):X$<1)=X* 

1050 FOR I=2T06 
1060 LOCATE 9,9+1,0 
1070 NR-L(I) 

1080 GOSUB 2180 

1090 IF X*<>"”THENX*<I)=X* 

1100 NEX T 
1110 GOSUB 1.980 

1120 LOCATE 0,19: PRINT"INVOEREN? J/N:"; 

1130 GOSUB 2350 

1140 IF X$=" J "OR X$=" j "THEN 1170 
1150 IF X$< > "N"AND XSK >”n"THENl 120 
1160 GOTO 1010 
1170 GOSUB 2120 
1180 GOTO 760 
1 1 90 ? 

1200 ? BEELDSCHERM PROGRAMMA 
1210 GOSUB 1790 

1220 FOR 1 = 1 TO 6: < I ): NEXT 

1230 LOCATE 13, 3: PRINT"LIJST BEELDSCHERM" . 

1240 L0CATE17, 9,0:GOSUB 2350 

1250 X=VAL<X$>: IF X<1 OR X>9 THEN 1240 

1260 Y=X:LOCATE 17,9:PRINT X 

1270 FOR M=1 TO REC 

1280 GET# 1, Ns X=VAL. <N$ ( 1) ) 

1290 IF X<>Y THEN 1330 

1300 GOSUB 2060: GOSUB 1980 

1310 LOCATE 0, 19:PRINT"DRUK EEN TOETS"; 

1320 GOSUB 2350 
1330 NEXT 
1340 GOTO 1210 
1350 ’ 

1 360 ’ ? 

1370 ? PRINT PROGRAMMA 
1380 CLS:GOSUB 2440 

1390 LOCATE 13,3: PRINT"PRINT PROGRAMMA" 

1400 LOCATE 0,10!P$="” 

1410 PR INT"MET OF ZONDER DE ORMERKINGEN? M/Z:" ; 

1420 GOSUB 2350 

1430 IF X$="t v rDRX$= ,, m"THENP$= ,, M" : GOTO 1450 
1440 IF X$< >"7"AND X$< >"z"THEN 1400 

1450 LOGATE0,20 

1460 PRINT"PRINTER KLAAR? DRUK EEN TOETS:"; 

1470 GOSUB 2350 
1480 CLS:GOSUB 2440 


if? 


MSX 6IPS PROGRAMME INDEX 
DATA INVOEREN 

T 


ESC = TERUG NAAR MENU -J 


RECQRDNOMMER: 44 
ONDERWERPHUHf^R: 1 ARCADE 

DISK NR 
PR.NAAN 
SVSTEEM 
DATUM 
OPM. 


I l^ARCADE C £ ] = ADVENTURE C 3 3 =DATA-BASE 

r S^I^KSTVERW : 5 1 =CACULAT IE C 6 1 =UT ILI TV 
c f J=BORDSPEL E! 81] =EDUCAT IEFC93=DI VERSEN 
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1490 LPRINTs LPRINT"MSX GIDS TIJDSCHRIFTEN INDEX" 

1500 LPRINT:LPRINT 
1510 FOR J = 1 TO 9 
1520 LOCATE 0,10 

1530 PRINT "ONDERWERP: " ; J;" ":OS(J> 

1540 LPRINT "ONDERWERP: "; j ; " ";0*<J) 

1550 LPRINT:LOCATE0,20:PRINT BPC(i0) 

1560 LPRINT"REC.NR. TITEL";SPC(19);"BLAD";SPC<18); "UITGAVE" ;SPC(15);"PAG. 

it 

1570 FOR N=1 TO REC 
1580 LOCATE 0,20;PRINT N 
1590 GET#1,N:XS<1)=NS(1> 

1600 X=VAL(XS(1)) 

1610 IF XOJ THEN 1670 

1620 GOSUB 2060 

1630 LPRINT USING"####"sN; 

1640 FOR K=2 TO 5 

1650 LPRINT" ";XS <K>;:NEXTK:LPRINT 
1660 IF ps="M"tHEN LPRINT"OPM. ";XS<6> 

1670 NEXT N 

16B0 LPRINT:LPRINT:NEXT J 
1690 LPRINT:GOTO 240 

1700 ’ 

1710 ? 

1720 CLB:LOCATE,,0 
1730 RBET RECS=STRS(REC) 

1740 PUT#1,1501:REM EVT WIJZIGEN * 

1750 CLOSE' 

1760 GOTO 60 

1770 * 

1780 51 SCHERM 1 * 

1790 CLS:GOSUB2440 

1800 LOCATE0,8,0 

1810 PRINT" RECORDNUMMER; 

1820 PRINT"ONDERWERPNUMMER: 

1830 PRINT 

1840 PRINT" TITEL: __" 

1850 PRINT" BLAD: __" 

i860 PRINT"UITGAVE: _" 

1870 PRINT" PAGINA: _" 

1880 PRINT" OPM.: 


1890 LOCATE0,21 

1900 PRINT"[13 = ";OS(1);"C23=";OS(2);"I33=":OS(3) ; 
1910 LOCATE0,22 

1920 PR I NT " C 4 3 = " 5 OS (4) ; " C53-" 5 OS (5) ; "C63 = ";OS < 6 ) ; 
1930 LOCATE0,23 

1940 PRINT"C73=";OS(7);"CB3=";OS( 8 )?"C93 = ";OS(9); 

1950 RETURN 
1960 ? 

1970 =* SUBROUTINE 

1980 L0CATE16,8,0:PRINT N 

1990 LOCATE17,9:PRINT XS( 1 ) 

2000 FOR 1=2 TO 6 
2010 LOCATE 9,9+1,0 
2020 PRINT XS(I):NEXT 
2030 RETURN 

2040 ’ 

2050 9 RECORD INLEZEN 
2060 GET#1,N 
2070 FOR 1=1 TO 6 
2080 XS <I)=NS(I):NEXT 
2090 RETURN 
2100 ? 

2110 ’ RECORD WEGSCHRIJVEN 

2120 FOR 1=1 TO 6 

2130 LSET NS(I)=XS(I>:NEXT 

2140 PUT#1,N 

2150 RETURN 

2160 

2170 ’INVOERROUTINES 

2180 AS=CHRS( 8 )+" "+CHRS(8 ):XS="" 

2190 WS=INKEYS 

2200 IFT1ME=25THENL0CATE,,0 

2210 TFT IME>30THENLOCATE,,1:TIME=0 

2220 IFWS=""THEN2190 

2230 IFWS=CHRS(27)AND PR=1THEN RETURN 240 
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2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 


IFW*=CHR*C27>AND PR=2THEN RETURN 2B50 
IF W$>CHR$(31)AND W$<CHR$ <123)THEN 2320 
IF W*<>CHR$(8)THEN 2300 
IF X$=" H THEN BEEP: GOTO 2190 

IF LEN(X$)-1 THEN X*»””sPRINT A*;;GOTO 2190 
X*~LEFT$ < X$„LEN(X*)-1):PRINT A$;:GOTO 2190 
IF W$=CHR$(13> THEN LOCATE,,0:RETURN 
BEEP:GOTO 2190 

IF LEN(X*)-NR THEN BEEP:G0T02190 
PRINT mi s X$=X*+W*:GOTO 2190 

X$=INKEY$ 

IF TIME=25 THEN LOGATE,,0 

IF TIHE>30 THEN LOCATE,,1:TIME-0 

IF X$^" H THEN 2350 

1FX$-CHR$(27)AND PR~1THEN RETURN 240 
IFX $-~CHR$ (27) AND PR—2THEN RETURN 2850 

LOCATE0,0,0:RETURN 


3 KADER * 

CLSs LOCATE,,0 
PRINT' 5 r 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 



ESC = TERUG NAAR MENU 


p 

* 


■ 

J 

■ 

!» 


2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2B10 
2820 
2830 
2840 
2850 
2B60 
2870 
2B80 
2890 
2900 
291 0 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


RETURN 

*■ 

3 INIT * 

OPEN"A:BESTAND"AS#1LEN=150 

FIELD#!,2ASN$< 1) ,26ASN*(2) ,21ASN$ <3),21ASN$(4),4ASN$(5) 
FIELD#1,5 AS REC$ 

L <1) — 1:L(2)“26:L < 3)-21s L(4)-21:L(5)=4:L < 6)—71 
PUT#1,1502:REM EVT WIJZIGEN * 

GET#!,1501:REM EVT WIJZIGEN * 

N“VAL<REC*>:REC”VAL(RECfc) 

ON STOP GOSUB 2790 
STOP ON 

3 OPGAVE ONDERWERPEN (MAX. 9 LETTERS) 

0$(1)="BASIC" 

0$(2)»"MACH.TAAL" 

0$(3)—"DOS" 

0$ (4)= ,i CP/M" 

0$ <5)—"ZAKELIJK" 

0$ < 6)-"SPELLEN" 

0$(7)“"HARDWARE" 

0$(8)-"EDUCATIEF" 

0$(9)="DIVERSEN" 

FDR I~1 TO 9 

0$ (I) ”L..EFT$ <0$ (I) *SPACE$ (9) ,9) 

NEXT 

RETURN 

STOP OFF:STOP ON;RETURN 240 

3 TWEEDE PROGRAMMA 

PR~2s GOSUB 4850 


3 MENU * 

GOSUB 4750 

LOCATE18,3,0:PRINT"MENU" 

LGCATE0,8,0 

PRINTSPRINT" 1 = INVOEREN GEGEVENS" 
PRINT:PRINT" 2 = WIJZIGEN / ZOEKEN" 
PRINT:PRINT" 3 = LIJST BEELDSCHERM" 
PRINT:PRINT" 4 = LIJST PRINTER" 
PRINT:PRINT" 5 = EINDE" 

PR I NT: PR I NT" Programme* verlaten via 
LOCATE 2,22:PRINT"WELK NUMMER?: " ; 
GOSUB 4710 


X-VAL,(X*):IF X<1 OR 
ON X GOTO 3010,3370 
GOTO 2940 


X >5 THEN 2940 
3820,3990,4270 


EINDE 





71ASN*(6) 




(c) Junior 99 













2990 




3000 

’ INVOEREN 


301 0 

GOSUB 43 

40 


3020 

FOR 1=1 

TO 

6: X$ ( 

3030 

L DCATE 1 

, *T j- + 1 

: PR IN 

3040 

N=REC 



3050 

IF REC>= 

1500 THE 

3060 

LOCATE16 

5 - ? 

Of . pi? x 

3070 

LOCATE16 

O 
!■ ' 


3080 

GOSUB 47 

10: 

X=VAL 

3090 

IF X<1 0 

R X > 

9 THE 

3100 

LOCATE 16 

o. 

■ / i 

PRINT 

31 10 

LOCATE20 

9 * 

if f i 

PR I NT 

3120 

X* ( 1 ) =X$ 



31 30 

FOR 1=2 

TO 

J 

L 

3140 

LOCA f E 9 

9+ 
^ * * 

1,0 

31 50 

NR=L < I ) 



3160 

GOSUB 46 

90 


31 70 

IF X$<>" 

"TH 

F N X* 

3180 

NEXT 



3 1 9 0 

GOSUB 43 

^ 0 * 

GOSUE? 

3200 

LOCATE 16 

, 8, 

0: F'R I 

3210 

LOCATE 0 

« 1 9 

CA * PR 

3220 

GOSUB 47 

i 0 


3230 

IF X$="J 

" 0 

R X$= 


p— 

■Jjl 

3250 

3260 

Ojd / 

3280 




r 


}0 
3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 


3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 
3470 
3480 
3490 
3500 
3510 
3520 


^ l» I* 


: NE X T 




INVITEREN" 


if: REM EVT. WIJZ I GEN * 


<X$) 


0$ (x > 


% { I)=x$ 

4530 
NT N+l 

I NT"INVOEREN? 


1 j"THEN 3260 
IF X$="N" OR X$="n"THEN 3070 
GOTO 3210 

N=N+1 : REC=REC+ 1 : GOSUB 4630 
GOTO 301 


J/N 


I) 


’ BESTAND VO 1 
CLS 

FOR 1=1 TO 40 
BEEP:PRINT"BES1 AND 
BEEP:NEXT 
GOTO 2850 


VOL ! 


1» 


(1 


? WIJ ZIGEN 

FOR 1=1 TO 6 :X$(I)= M ":NEXT 
GOSUB 4340:NR=4 
LOCATE 13,3:PRINT"DATA WIJZIGI 
LOCATE16,8,0:GOSUB 4690 
IF X $=""THEN3450 

X=VALCX$):IFX<1 OR X>REC THEN3390 
N=X:GOSUB 4570 
GOTO 3620 
FOR 1=2 TO 6 
LOCATE 9,9+1,01 
GOSUB 4690 
IF X^O” "THEN 1 
NEXT 

GUTO 3370 
FOR N=1 TO RFC 
GET #1,NsX$(Y)=N$(Y) 


IR=L < I) 


$ 

+ 


X$:Y=I:GOTO 3510 


3530 

IE INSTR(1 , X$( 

3540 

GOSUB 4570:GOS 

3550 

LOCATE 0,19:PR 

3560 

GOSUB 4710 

3570 

IF X$="J"ORX*= 

3580 

IF X*= , 'N"ORX*= 

3590 

GOT03550 

3600 

NEXT 

3610 

GOT03370 

3620 

GOSUB 4530 

3630 

LOCATE 17 * 9 s GO 

3640 

X=VAL. < X*> : IT X< 

3650 

LOCATE 16,9:PR 

3660 

FOR I=2T06 

3670 

LOCATE 9,9+1,0 

3680 

NR=L(I) 

3690 

GOSUB 4690 

3700 

IF X$<>""THEMX 

3710 

NEXT 

3720 

GOSUB 4530 

3730 

LOCATE 0,19:PR 

~7 /L C\ 

Jf m y 1./ J 

GOSUB 4710 

3750 

IF X"J"OR X* 


3600 


v7/N 


"i"THEN3620 


10RX>9THEN3630 


COMTROLETELLING 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Reqel 
Regel 
Regel 
Regel 
Reqel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Reqel 


:X*(1)=X$ 


10 - 

186 

20 - 

93 

30 - 

133 

40 - 

58 

50 - 

58 

60 - 

60 

70 - 

211 

80 - 

166 

90 - 

92 

100 - 

231 

110 - 

156 

120 - 

215 

130 - 

173 

140 - 

155 

150 - 

102 

160 - 

242 

170 - 

53 

180 - 

77 

190 - 

67 

200 - 

141 

210 - 

58 

220 - 

58 

230 - 

58 

240 - 

76 

250 - 

186 

260 - 

107 

270 - 

72 

280 - 

17 

290 - 

52 

300 - 

59 

310 - 

215 

320 - 

212 

330 - 

102 

340 - 

242 

350 - 

236 

360 - 

60 

370 - 

2 

380 - 

58 

390 - 

58 

400 - 

191 

410 - 

92 

420 - 

3 

430 - 

23 

440 - 

117 

450 - 

181 

460 - 

61 

470 - 

211 

480 - 

81 

490 - 

12B 

500 - 

72 

510 - 

74 

520 - 

29 

530 - 

207 

540 - 

117 

550 - 

71 

560 - 

196 

570 - 

131 

580 - 

130 

590 - 

181 

600 - 

164 

610 - 

242 

620 - 

136 

630 - 

209 

640 - 

17 

650 - 

179 

660 - 

72 

670 - 

58 

680 - 

58 

690 - 

159 

700 - 

60 

710 - 

2 

720 - 

125 

X$ 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 



730 - 167 
740 - 58 
750 - 58 
760 - 92 
770 - 157 
780 - 4 

790 - 250 
BOO - 141 
810 - 52 
820 - 158 
830 - 172 
B40 - 29 
850 - 126 
860 - 71 
870 - 110 
880 - 131 
890 - 177 
900 - 228 
910 - 204 
920 - 247 
930 - 135 
940 - 41 
950 - 242 
960 - 145 
970 - 133 
980 - 70 
990 - 131 
1000 - 145 
1010 - 126 
1020 - 228 
1030 - 4 

1040 - 102 
1050 - 221 
1060 - 207 
1070 - 117 
1080 - 71 
1090 - 164 
1100 - 131 
1110 - 126 
1120 - 103 
1130 - 242 
1140 - 114 
1150 - 5 

1160 - 172 
1170- 11 
1180 - 177 
1190 - 58 
1200 - 58 
1210 - 191 
1220 - 92 
1230 - 39 
1240 - 167 
1250 - 129 
1260 - 91 
1270 - 228 
1280 - 155 
1290 - 153 
1300 - 135 
1310 - 126 
1320 - 242 
1330 - 131 
1340 - 117 
1350 - 58 
1360 - 58 
1370 - 58 
1380 - 37 
1390 - 182 
1400 - 47 
1410 - 20 
1420 - 242 
1430 - B 
1440 - 86 
1450 - 56 
1460 - 53 
1470 - 242 
1480 - 37 
1490 - 128 
1500 - 116 
1510 - 32 
1520 - 78 
1530 - 178 
1540 - 190 
1550 - 27 
1560 - 46 
1570 - 228 
1580 - 145 
1590 - 62 
1600 - 10 
1610 - 223 

JunioR.99 


i "THEN 3780 















3760 

3770 

3780 

3790 

3800 

3810 

3620 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 


IF X$< VN" AND X>”n"THEN3730 
GOTO 3620 
GOSUB 4630 
GOTO 3370 

’BEELDSCHERM PROGRAMMA 
GOSUB 4340 

FOR 1 = 1 TO 6: X$ (I) = " 11 : NEXT 

LOCATE 13,3s PRINT" LIJST BEELDSCHERM" 

LOCATE 17,9,0:GOSUB 4710 

X=VAL < X$):IF X<1 OR X>9 THEN 3850 

Y=X:LOCATE17,9:PRINT X 

FOR N“1 TO REC 

GET#!,NsX=VAL(N$ <1) ) 

IF X< > Y THEN 3940 

GOSUB 4570sGOSUB 4530 

LOCATE 0,!9sPRINT"DRUK EEN TOFTS"; 

GOSUB 4710 

NEXT 

GOTO 3820 


’PRINT PROGRAMMA 
CLS: GOSUB 4750 

LOCATE 13,3sPRINT"PRINT PROGRAMMA" 
LOCATE0,20 

PR I NT "PR INTER KL.AAR? DRUK EEN TOETSs " ; 
GOSUB 4710 
CLSsGOSUB 4750 

L PRINT s LPRINT"MSX BIDS PROGRAMMA INDEX 
LPRINTs LPRINT 
FOR :J = 1 TO 9 
LOCATE 0,10 

PRINT "ONDERWERPs " ; J " ”;0$<J) 

LPRINT "ONDERWERPs " s0s " " 

LPRINT s LOCATE0,20 s PR 1 NT SPC(10) 

LPRINT"REC DISK NAAM SYSTEEM 

FOR N=1 TO REC 
LOCATE 0,20s PRINT N 
GET#1, Ns XS( 1 > (1) 

X=VAL<X*(1)) 

IF XOJ THEN 4220 
GOSUB 4570 

LPRINT USING"####";N; 

FOR K-2 TO 6 

LPRINT" "s X$(K>5 sNEXTKsLPRINT 
NEXT N 

LPRINTsLPRINTsNEXT J 
LPRINTsGOTO 2850 


CLSsLOCATE, ,0 
RSET REC$~5TR$(REC) 

PUT#1,1501:REM EVT WIJZIGEN # 
CLOSE 

GOTO 60 

% 

n 


’SCHERM 1 * 

CLSs GOSUB4750 

LOCATE0,8,0 

PRINT" RECORDNUMMER: 

PRINT"ONDERWERPNUMMER: 

PRINT 

PRINT "DISK NRs_" 

PRINT"PR.NAAMs 

PRINT"SYSTEEM: _" 

PRINT" DATUM; _ 

PRINT" OPM.; _ 

t nPATF 0 71 

PRINT H t13 = "!0* <1)5"C 2 3 = "5□*(2 > 
LOCATE0,22 

PRINT"C43 = " ; 0$(4)s"C53 = "s 0 % (5) 
LOCATE0,23 

PRINT"C73=";OS(7);"C83=";0$ (B) 
RETURN 

rt 


"C33-"; 
"C63="; 



’SUBROUTINE 
GOSUB 1980 


It 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


620 - 207 
630 - 53 
640 - 30 
650 - 110 
660 - 211 
670 - 241 
680 - 155 
6?0 - 126 
700 - 58 
710 - 58 
720 - 26 
730 - 131 
740 - 76 
750 - 180 
760 - 243 
770 - 58 
780 - 58 
790 - 5 
800 - 107 
810 - 162 
820 - 217 
830 - 145 
840 - 151 
850 * 109 
860 - 15 
870 - 123 
880 - 2 
890 - 57 
900 - 185 
910 - 58 
920 - 203 
930 - 59 
940 - 221 
950 - 142 
960 - 58 
970 - 58 
980 - 178 
990 - 8 
2000 - 29 
2010 - 207 


Regel: 2020 - 132 
Regel: 2030 - 142 
Regel: 2040 - 58 
Regel: 2050 - 58 
Regel: 2060 - 97 
Regel: 2070 - 28 
Regel: 2080 - 206 
Regel: 2090 - 142 
Regel: 2100 - 58 
Regel: 2110 - 58 
Regel: 2120 - 28 
Regel: 2130 - 166 
Regel: 2140 - 98 
Regel: 2150 - 142 
Regel; 2160 - 58 
Regel: 2170 - 58 
Regel: 21B0 - 129 
Regel: 2190 - 86 
Regel: 2200 - 136 
Regel: 2210 - 146 
Regel: 2220 - 183 
Regel: 2230 - 100 
Regel: 2240 - 162 
Regel: 2250 - 58 
Regel: 2260 - 15 
Regel: 2270 - 187 
Regel: 2280 - 229 
Regel: 2290 - SB 
Regel: 2300 - 58 
Regel; 2310 - 71 
Regel: 2320 * 217 
Regel: 2330 - 123 
Regel: 2340 - 5B 
Regel: 2350 - 87 
Regel: 2360 - 232 
Regel: 2370 - 242 
Regel: 2380 - 185 
Regel: 2390 - 101 
Regel: 2400 - 163 
Regel: 2410 - 43 


... — 

DATUM DPM." 

1 1 - - - - - "» ”—— “ 


Regel: 2420 - 58 
Regel: 2430 - 58 
Regel: 2440 - 26 
Regel: 2450 - 211 
Regel: 2460 - 198 
Regel: 2470 - 126 
Regel: 2480 - 126 
Regel: 2490 - 202 
Regel: 2500 - 34 
Regel: 2510 - 142 
Regel: 2520 - 58 
Regel: 2530 - 58 
Regel: 2540 - 94 
Regel: 2550 - 98 
Regel: 2560 - 250 
Regel: 2570 - 243 
Regel; 2580 - 77 
Regel: 2590 - 75 
Regel: 2600 - 4 
Regel: 2610 - 16 
Regel; 2620 - 69 
Regel: 2630 - 58 
Regel: 2640 - 58 
Regel: 2650 - 107 
Regel: 2660 - 115 
Regel: 2670 - 241 
Regel: 2680 - 27 
Regel: 2690 - 98 
Regel: 2700 - 33 
Regel: 2710 - 93 
Regel; 2720 - 154 
Regel: 2730 - 113 
Regel: 2740 - 5B 
Regel; 2750 - 31 

■ Tl— )> — ■■ ■■ ■ 


0$(3); 
□*(5); 
0 *< 9 ); 


Regel: 2760 - 20 
Regel: 2770 - 131 
Regel: 2780 - 142 
Regel: 2790 - 0 
Regel: 2800 - 58 
Regel: 2810 - 58 
Regel: 2820 - 157 
Regel: 2830 - 5B 
Regel: 2840 - 58 
Regel: 2850 - 91 
Regel: 2860 - 186 
Regel: 2B70 - 107 
Regel: 2880 - 72 
Regel: 2890 - 17 
Regel: 2900 - 52 
Regel: 2910 - 59 
Regel: 2920 - 215 
Regel: 2930 - 212 
Regel: 2940 - 102 
Regel: 2950 - 51 
Regel: 2960 - 40 
Regel: 2970 - 45 
Regel: 2980 - 62 
Regel: 2990 - 55 
Regel: 3000 - 58 
Regel: 3010 - 191 
Regel: 3020 - 92 
Regel: 3030 - 3 
Regel: 3040 - 23 
Regel: 3050 - 177 
Regel: 3060 - 1B1 
Regel: 3070 - 61 
Regel; 3080 - 20 
Regel: 3090 - 141 
Regel: 3100 - 128 
Regel: 3110 - 72 
Regel: 3120 - 74 
Regel: 3130 - 29 
Regel: 3140 - 207 
Regel: 3150 - 117 
Regel: 3160 * 31 
Regel: 3170 - 196 
Regel: 3180 - 131 
Regel: 3190 - 129 
Regel: 3200 - 181 
Regel: 3210 - 164 


(c) Junior 99 


22 






















4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4B50 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 


RETURN 

? RECORD INL.EZEN 

GET#1,N 

FOR 1=1 TO 6 

XS(I)=NS(I):NEXT 

RETURN 

? RECORD WEGSCHRIJVEN 

FOR 1=1 TO 6 

L.SET NS(I)=XS(I) : NEXT 

PUT #1,N 

RETURN 

r 1 

? INVOERROUTINES 
GOSUB 2170 
RETURN 
GOSUB 2350 

RETURN 

? 

TRADER * 

CL.S: LOCATE, , 0 


Reael: 3220 - 51 
Rebels 3230 - 196 
Regel: 3240 - 13 
Regel: 3250 - 77 
Regel: 3260 - 139 
Reqel: 3270 - 132 
Reqel: 3280 - 58 
Reqel: 3290 - 58 
Reqel: 3300 - 159 
Reqel: 3310 - 60 
Reqel: 3320 - 2 
Reqel: 3330 - 125 
Reqel: 3340 - 228 
Reqel: 3350 - 58 
Reqel: 3360 - 58 
Reqel: 3370 - 92 
Reqel: 3380 - 157 
Reqel: 3390 - 4 
Reqel: 3400 - 210 
Reqel: 3410 - 201 
Reqel: 3420 - 112 
Reqel: 3430 - 117 
Reqel : 3440 - 233 
Reqel: 3450 - 29 
Reqel: 3460 - 126 


Reqel: 3470 - 
Reqel: 3480 - 
Reqel: 3490 - 
Reqel: 3500 - 
Reqel: 3510 - 
Reqel: 3520 - 
Reqel: 3530 - 
Reqel: 3540 - 
Reqel: 3550 - 
Reqel: 3560 - 
Reqel: 3570 - 
Reqel: 3580 - 
Reqel: 3590 - 
Reqel: 3600 - 
Reqel: 3610 - 
Reqel: 3620 - 
Reqel: 3630 - 
Reqel: 3640 - 
Reqel: 3650 - 
Reqel: 3660 - 
Reqel: 3670 - 
Reqel: 36B0 - 
Reqel: 3690 - 
Reqel: 3700 - 
Reqel: 3710 - 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


MSX GIDS PROGRAMSA INDEX 

L ESC = TERUG NAAR MENU - 


RETURN 
? INIT * 

OPEN"As BESTAND2"AS#1LEN=70 

FIELD#1,2ASNS(1),4ASN$<2),12ASNS(3>,10ASNS(4>, 
FIELD#1,5 AS RECS 

L(1>=1:L(2)=4:L(3)=12:L(4)=10:L(5)=10:L<6>=29 
PUT#1,1502s REM EVT WIJZIGEN * 

GET#1,1501:REM EVT WIJZIGEN * 

N=VAL < RECS):REC=VAL < RECS) 

ON STOP GOSUB 5100 
STOP ON 

"OPGAVE ONDERWERPEN (MAX. 9 LETTERS) 

OS(1)="ARCADE" 

OS(2)="ADVENTURE" 

OS(3)="DATA-BASE" 

OS(4)="TEKSTVERW" 

OS(5)="CACULATIE" 

OS(6)="UTILITY" 

OS < 7) = "BORDSPEL" 

OS < 8)="EDUCATIEF" 

OS(9) = " DIVERSEN" 

FOR 1=1 TO 9 

OS (I) =L.EFTS (OS (I) +SPACES (9) , 9) 

NEXT 

RETURN 

STOP OFF:STOP ON:RETURN 2850 

? EINDE PROGRAMMA 

CLS:LOCATE, , 0 

PRINT:BEEP-PRINT:PRINT 

PRINT"Naarmate het bestand groeit warden de" 
PRINT"wachttijden bij het printen en het" 
PRINT"zDeken / wijzigen steeds 1 anger." 

PRINT"Zolang de drive draait is het programma" 
PR I NT "nog bezig! Wacht. rustig af i " 

BEEP:PRINT 

PR3NT"Maak regel matig een back-up kopie van" 
PRINT"de diskette!!" 

PRINT:PRINT:PRINT 
END 


31 

170 

131 

238 

228 

204 

52 

94 

41 

51 

206 

194 

130 

131 
206 
126 

97 

65 

102 

221 

207 

117 

31 

164 

131 


Reqel: 3720 
Reqel: 3730 
Reqel: 3740 
Reqel: 3750 
Reqel: 3760 
Reqel: 3770 
Reqel: 3780 
Reqel: 3790 
Reqel: 3800 
Reqel: 3810 
Reqel: 3820 
Reqel: 3830 
Reqel: 3840 
Reqel: 3850 
Reqel: 3860 
Reqel: 3870 
Reqel: 3880 
Reqel: 3890 
Reqel: 3900 
Reqel: 3910 
Reqel: 3920 
Reqel: 3930 
Reqel: 3940 
Reqel: 3950 
Reqel: 3960 
Reqel: 3970 
Reqel: 3980 
Reqel: 3990 
Reqel: 4000 
Reqel: 4010 
Reqel: 4020 
Reqel: 4030 
Reqel: 4040 
Reqel: 4050 
Reqel: 4060 
Reqel: 4070 
Reqel: 4080 
Reqel: 4090 


126 

103 

51 

174 

65 

233 

227 
238 

58 

58 

191 

92 

39 

232 

190 

91 

228 
155 
213 

94 

126 

51 
131 

177 
5B 
5B 
58 

52 
182 

56 

53 

51 

52 
85 

116 

32 

78 

178 



(c) Junior^ 




























Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


4570 - 97 

Regel 

4800 - 

202 

Regel 

4580 - 28 

Regel 

4810 - 

34 

Regel 

4590 - 204 

Regel 

4820 - 

142 

Regel 

4400 - 142 

Regel 

4830 - 

58 

Regel 

4410 - 58 

Regel 

4840 - 

58 

Regel 

4420 - 58 

Regel 

4850 - 

44 

Regel 

4430 - 28 

Regel 

4840 - 

20 

Regel 

4440 - 144 

Regel 

4870 - 

250 

Regel 

4450 - 98 

Regel 

4880 - 

145 

Regel 

4440 - 142 

Regel 

4890 - 

77 

Regel 

4470 - 58 

Regel 

4900 - 

75 

Regel 

4480 - 58 

Regel 

4910 - 

4 

Regel 

4490 - 41 

Regel 

4920 - 

31 

Regel 

4700 - 142 

Regel 

4930 - 

49 

Regel 

4710 - 242 

Regel 

4940 - 

58 

Regel 

4720 - 142 

Regel 

4950 - 

58 

Regel 

4730 - 58 

Regel 

4940 - 

149 

Regel 

4740 - 5B 

Regel 

4970 - 

184 

Regel 

4750 - 24 

Regel 

4980 - 

109 

Regel 

4740 - 211 

Regel 

4990 - 

219 

Regel 

4770 - 27 

Regel 

5000 - 

152 

Regel 

4780 - 124 

Regel 

5010 - 

44 

Reqel 

4790 - 124 

Regel 

5020 - 

104 

Totaal 


5030 - 154 
5040 - 113 
5050 - 58 
5040 - 31 
5070 - 20 
5080 - 131 
5090 - 142 
5100 - 41 
5110 - 58 
5120 - 58 
5130 - 24 
5140 - 33 
5150 - 142 
5140 - 148 
5170 - 144 
5180 - 59 
5190 - 72 
5200 - 139 
5210 - 72 
5220 - 93 
5230 - 39 
5240 - 129 
: 58847 



SPEED- 
SECTOR- 
COPY 


SECTOR-COPY PROGRAMMA 

Om files te kopieeren hebben Disk BASIC en 
MSX DOS het 'COPY' commando. Bij gebruik 
van 2 drives gaat dit allemaal wel 
redelijk maar met 1 drive gaat het 
kopieeren -met COPY- erg lastig. Wanneer 
de diskette nog bijna leeg is of, wanneer 
het slechts om enkele grote programma's 
(of files) gaat, valt het nog wel mee, 
maar een diskette met erg veel kleine 
programma's vraagt wel een heel soepele 
pols voor het -tot vervelens toe- 
omwisselen van de schijfjes. Het volgende 
programma lost alle kopieerproblemen op. 
Het programma kopieert HELE diskettes (let 
hier goed op; voor het overzetten van 
enkele programma's of files kan dit 
programma NIET worden gebruikt), en is 
zowel voor 1 drive als voor 2 drives 
geschikt. Bij gebruik van 1 drive hoeft 
slechts 15 keer de diskette omgewisseld 
te worden. Daar er groepen van 48 sectoren 
tegelijk worden omgezet gaat dit 
omwisselen regelmatig, met een vaste 
tussenpauze; geen diskjockey werk meet! 
Sectorcopy programma's hebben verder nog 
het voordeel dat ze sommige be- 
schermingen omzeilen. Dit kopieerprogramma 
dus ook, en dat is mooi meegenomen! 


ALL..EEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT MOOR DISKETTE 
Beel dscherm: WIDTH 36 


a f? 


9 m a a m 


10 

20 

30 

40 


50 

60 


SCREEN®:CLEARS®,35000!sDEFINTB-Z 
WIDTH37:KEYOFF:DEFSNG A 
LOCATE10, 1 s PRINT ,i MSX sector copy" 
LOCATES,20s BEEP;PRINT"1 OR 2 DRIV 
1 / 2 :"; 

X$=INKEY$sIPX$="“THEN50 
X=VAL< X$ >:IFX<1ORX>2THEf 


70 LOCATEB,20:PRINT" DRIVES: ";Xs 
SPC(20) 

80 FOR F=0 TO 719 STEF 48 - 
90 IF X ~ 2THEN130 

100 FOR 1=1 TO 9999:NEXT;BEEP:BEEP 
110 LOCATE0,20:BEEP:PRINT"Insert MAS 
TER disc, press RETURN." 

120 X$=INKEY$:IFXS=CHR$(13)THEN130EL 
SE120 

130 ADR=35001!:FOR 5=0 .TO 47 
140 A1=INT(ADR/256):A2=ADR~256*A1 
150 POKE &HF351„A2sP0KE&HF352,A1 
160 SEC=F+S 

170 LOCATE0,B:PRINT" HEAD sectors "; 
SEC 


180 X$=DSKI*(l,SLCi 

190 ADR=ADR+512 

200 NEXT S . 

210 IFX=2THEN250 

220 FOR 1=1 TO 9999:NEXT:BEEP:BEEP 

230 LOCATE®,20:BEEPSPRINT" Insert SL 

AVE disc, press RETURN . n 

240 X$=INKE Y$:IFX $=CHR$(13)THEN250EL 

SE240 

250 ADR=35001!s FOR 5=0 TO 47 
260 A1=1NT(ADR/256):A2=ADR-256*A1 
270 P0KE&HF351,A2sPOKE&HF 352,A1 
280 SEC=F+S 

290 LOCATE®,8:PRlNT"WRITE sector: 

SEC 



DSKD$X,SEC 
ADR=ADR+5i2 

NFXT S'NFXT F 

LOCATE®, 20: BEEP s PR 1 NT " F I N.I SHED. . 

h . r"hir\ 


Het eerste progr 


een goed inzich 
sectoren en v 
programmma kunne 
andere programma 
versie met de 


mi ii a 

is 

ee 

n BASIC versie. 

i te 

raar 

d 

tamelijk traag 

da 

n CO 

PY 

- en het geeft 

t 

1 n 
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i 

t we c ke n me t 
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t Q 

kken uit dit 
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o 
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s 

ge b 
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ikt worden. De 
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hi fie 
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0 JT Z 

0 t t 0 

n 

van een diskette 

n d 

e he 

If 

t van de tijd 

rs i 

e n 

o d 

ig heeft. Deze 

uik 

van 

c 

en ROM-routine. 

( s 

lech 

ts 

een sprong naar 

St 8 

at 

op 

adres &h0l44. 

es 

— -w --w u. XI 

W()l 0 

t 

gegaan uioeten de 


die de BASIC ve 
versie maakt gebi 
Deze ROM-routine 
een ander adres) 


volgende gegevens worden ingevoerd: 


Reg. 

Reg. 


Reg. 

Reg. 


A 

B 

C 

DE 

HL 


drive nummer 
aantal sectoren 
format type 
start sectOL 
RAM adres 


Carry flag: SET^WRI TE ,,CLEAR-READ 
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Bij drivenummer moet een 0 worden 
opgegeven voor de eerste drive en een 1 
voor de tweede. 

Het aantal sectoren is het aantal dat in- 
gelezen c.q. weggeschreven moet worden. 
NIET het totaal aantal secoren van de 
schijf. ' 

Het formattype is F8 voor de 9-sector * SS 
drives en F9 voor dezelfde DS drives. 

Het RAM-adres is het adres vanaf waar de 

gegevens .van de sectoren weggeschreven 
worden (of ingelezen). 

Beide programma's zijn gemaakt voor de 
80-track diskdrive systemen. 


ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VOOR DISKETTE 

Beeldscherm: WIDTH 36 


10 5CREEN0:CLEAR 50,34978! 

20 WIDTH37:KEYOFF 5 DEFINT A-Z 
30 LOCATE10, 1 s PRINT"MSX sector copy** 
35 GQSUB 310 

40 LOCATES,20:BEEP:PRINT"1 OR 2 DRIV 

eg 1 } 1 / 2 s " ■ 

50 X$=INKEY$:IFX$=""THEN50 


60 X=VAL(X$):IFX<1ORX>2THEN40 
65 LOCATE 8,20:PRINT" DRIVES: ";X 

■ spfg (20) 

70 FOR F=0 TO 719 STEP 48 
80 IFX=2THEN110 

85 FOR A=1T09999:NEXT:BEEP:BEEP 
90 LOCATE0,20:BEEP:PRINT"Insert MAST 
ER disc, press RETURN." 

100 X$=INKEY$:IFX$=CHR$(13)THEN110EL 
SE100 


110 POKE 349921,0 

120 POKE 34986!,INT(F/256) 

130 POKE 34985!,F MOD 256 
140 POKE 34990!,175 

150 LOCATE0,8:PRINT" READ sector: "; 
F;:F+48 
160 A- USR < 0) 

190 IFX-2THEN220 

195 FOR A—1T09999:NEXT:BEEP:BEEP 
200 LDCATE0,20:BEEP:PRINT" Insert SL 
AVE disc, press RETURN." 

210 X*=INKEY$:IFX$=CHR*(13)THEN220EL 
SE210 

220 POKE 34992!,0 

230 IF X=2 THEN POKE 34992!,1 

240 POKE 34990!,55 

260 LOCATE0,8:PRINT"WRITE sector: 

F;:F+4B 
280 A- USR(0) 

290 NEXT F 


300 LOCATE0,20:BEEP:PRINT"F I NISHED.. 

. ." : END 

310 FOR 1=0 TO 16:READ A 


330 

350 

360 

370 

380 

390 

400 

410 

420 

430 


POKE 34980!+!,A:NEXT 

DEFUSR=349B0!:RETURN 

DATA 6,48 

DATA 14,248 

DATA 17,0,0 

DATA 33,184,136 

DATA 175 

DATA 62,1 

DATA 205,68,1 

DATA 201 


Wanneer we het gehele programma in machine 
taal zouden schrijven zou er nog een 
kleine snelheidswinst te behalen zijn. 
Echt spectacalair zou het worden wanneer 
er een RAM-bank (vanonder het ROM- 
gedeelte) ingevoegd zou worden om de 
gegevens op te slaan. Dan zou, met 1 
drive, nog raaar 6 keer van diskette 
gewisseld hoeven worden. Ik weet echter 
niet of dit programma dan nog voor alle 
diskdrive systemen bruikbaar zou zijn daar 
er diverse 'jump'' en 'call" instructies 
worden doorlopen alvorens de eigenlijke 
routine (boven Himem) wordt bereikt. 

Wie weet hier meer over of heeft zelf al 
een dergelijk kopieerprogramma gemaakt? 

CATALOG - 

diskette 

overziclit 

CATALOG 

Dit programmaatje geeft een overzicht van 
de diskette inhoud. Erg handig, vooral 
wanneer dit programma onder de naam 
'AUTOEXEC.BAS' op de schijf wordt gezet 
zodat, direkt na het opstarten, de inhoud 
van de diskette wordt gegeven. Tevens 
krijgt men de lengte van de programma's 
plus de ruimte die nog over is op de 
diskette. Het inlezan van de index van de 
diskette gebeurt op dezelfde wijze als bij 
het BASIC kopieer programma. 

Ook dit programma kan met zowel 1 als 2 
drives worden gebruikt. 


ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm: WIDTH 36 


10 CLEAR 200:COLOR 15,1,1s SCREEN0 
20 KEYDFF:WIDTH40:DEFINT A~Z:DEFSNG 
I K 

30 PRINT"DISK CATALOG. DRIVE 1/2 ?:" 

* 

35 X$=INKEY$;X=VAL(X$);IFX<1DRX>2THE 
N35 

36 IF X=1 THEN X$="A:"ELSE X$="B;" 

40 PR INTX s PR I NT "--- " 

60 FOR S=5 TO 11 
70 Y$=DSKI*(X,S) 

80 FOR 1=60310! TO 60821! STEP 32s IF 
PEEK (1X32 DR PEEK < I) > 127 THEN 120 
90 Y*="":FOR J=0 TO 11:Y$=Y$+CHR$(PE 
EK < J +1))sNEXTO:Y*=LEFT*<Y$,8)."+RI 
GHT$<Y$,4) 

95 PRINTY*: 

100 Y$=X$+Y$:OPEN Y^ AB#1:K=LOF(1)/1 
024+.05:PRINT USING"###.#K ";K;:KK=K 
K+K:CLOSE 

110 Q=Q+1:IF Q=2 THEN Q=0sPRINT 

120 NEXT I 

130 NEXT S 

140 PRINT:PRINT 

150 PRINT"GEBRUIKTs "ssPRINT USING " 
###.# K "sKK;:PRINT" VRIJs :PRIN 
T USING"###.# K":DSKF<X) 

160 END 
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TWEEDE DiSKDRIVE VOOR DE SONY HBD-50 

Als tweede drive hoeft niet perse een Sony 
drive gebruikt te worden. De aansluiting 
voor de tweede drive is een normale 
'Shughart-bus' en vrijwel elke 80-track 
drive kan hierop worden aangesloten. Dit 
kan dan ook een drive zijn voor de -veel 
goedkopere- 5.25 diskettes. 

Wij gebruiken zelf hiervoor de TEAC FD-55 
(40/80 track omschakelbaar, single sided, 
5.25') die we nog over hadden van de 
Apple. Wei moet deze tweede drive een 
eigen voeding heben, daar de voeding van 
de eerste drive hiervoor geen capaciteit 
genoeg heeft. De prijs van deze drives 
(incl. kastje, voeding en kabel) ligt wel 
aanmerkelijk lager dan de prijs van een 
tweede 3,5 MSX-drive en deze 5.25 drives 
worden vaak erg goedkoop aangeboden en 
zijn regelmatlg 2e hands te koop. 

Wie voornamelijk met 1 drive werkt kan 
zo'n goedkope. oplosstng gebruiken ora 
back-up kopieen van z'n bestanden -en 
programma's- te inaken; zeker aantrekkeli jk 
als je -net als wij- nog ergens zo'n drive 
hebt, of voor een leak pcijsje op de kop 
kunt tikken (niet doen, daar kan de kop 
niet goed tegen!) Wij werken al geruirae 
tijd op deze manler en dat gaat feilloos; 
wel maakt een 5.25 drive aanmerkelijk meer 
geluid dan z'n 3.5 broertje. Of dit 
verhaal ook opgaat voor de drives van 
Philips weet ik (nog) niet, maar 
hoogstwaarschijnlijk wel. 

Ga je dit proberen, dan moeten een paar 
punten in de gaten worden gehouden: Bij 
het aanslulten van de kabel moet uiteraard 
pen 1 van de eerste drive aansluiten op 
pen 1 van de tweede drive! De tweede drive 
moet -met de pinswitches- ook als tweede 
drive geschakeld worden, anders gaat deze 
drive ook alijd werken als drive 1 in 
bedrijf is. (Zie hiervoor de handleiding 
van de drive). 
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De Teac FD-55 moet als volgt worden 
geschakeld: HS-ON, DS1-0N, UR-ON, SM-ON, 
Tevens moet het afsluit- weerstandsuet - 
werkje geplaatst worden. Bij gebruik van 
b.v. 3 drives moet dit netwerkje naar de 
derde drive toe; m.a.w. dit weerstandsnet- 
werkje komt aan het eind van de keten, dus 
bij de laatste drive. Zonder dit netwerkje 
lijkt alles goed te werken maar er zijn 
dan soms stoorpulsen zichtbaar die -een 
heel enkele keer- error- meldingen tot 
gevolg kunnen hebben. 


OUDE NUMMERS MSX--GIDS 

Mist u nog nummers van de MSX-GIDS?? 

Neem dan kontakt op met de uitgeverij, 

Er zijn -beperkt- nog oude nummers 
verkrijgbaar. 

Teli 020-327464 


FILOTEL 


Ret Groningse softwarehuis Filosoft is 
gestart met een databank volgens het 

Viewdata- protokol: FILOTEL. 

ledere huiscoraputeraar die met Viditel 
kan communiceren, kan ook -en zonder lid- 
raaatschapskosten e.d.~ met Filotel. kon¬ 
takt opnemen. 

De miniatuur-Viditel bevat 800 pagina's 
nieuws en tips voor gebruikers. Er is ook 
plaats ingeruirad voor m prikbord, waarop 
men mededelingen voor collega-gebruikers 
kwij t kan . 

Filotel is 24 uur per dag bereikbaar 
ooder het telefoonnumer: 050-145174. 

Nadere inlichtingen kunnen worden 
verstrekt door: Henk Menninga (050- 13746) 
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ELIOON 

In het raagische feeenbos Elidon heeft de 
barre winter plaatsgemaakt voor de zachte 
lente. De feeen zijn druk bezig met het 
voorbereiden van het grote lentebal. Tot 
die voorbereidingen behoort het vlechten 
van een bloemenkrans voor de Feeenkoning¬ 
in. Die krans dient vervaardigd te worden 
van zeven toverbloemen, die diep in Eli¬ 
don verborgen zijn en die alleen m.b.v. 
speciale toverdrankjes tot bloei kunnen 
worden gebracht. Een fee wordt erop uit- 
gestuurd ora een en ander te verzamelen, 
maar jaloerse boomgeesten en een weelde- 
rige plantengroei beraoeilijken haar werk. 
Aan jou, de speler, de taak het tere 
schepseltje veilig door het bos te lood- 
sen. 

Tot zover achtergrond en doel van "Eli¬ 
don”, het prachtige arcade-adventure van 
de Engelse softwarefabrikant Orpheus, dat 
in Nederland wordt uitgebracht door Aac- 
kosoft. "Elidon” is een opvallend spel. 
Op de eerste plaats heeft het schitteren- 
de graphics en geluidseffekten. De geva- 
rieerde bosflora is gedetailleerd en 
kleurrijk weergegeven en de animatte van 
de bosfee en de boomgeesten is een lust 
voor het oog. 

Tot de talrijke geluidseffekten behoort 
een mooie melodie, die ontleend is aan 
Edvard Grieg. Op de tweede plaats is de 
enorme oravang van "Elidon" in het oog 
springend: het spel heeft namelijk tegen 
de 4000 beelden, c.q. karaers. 

"Elidon" is bepaald geen gemakkelijk 
spel. De handleiding, die door Aackosoft 
in het Nederlands is vertaald en fraai is 
uitgevoerd, geeft zeer welnig informatie, 
hetgeen trouwens gebruikelijk is bij 
arcade-adventures. 

Wij zullen daarom wat dieper op het spel 
ingaan. Tevens willen wij diegenen, die 
problemen met het spel hebben, helpen 
door het geven van tips en een kaart. 

Jij start je speurtocht steeds in de 
ruirate met de bloemenkrans. Hier moet je 
de bloeraen een voor een afleveren. Je 
ziet op het beeldscherm steeds een kamer 
met de verbindingen naar een of meer 
andere karaers. Aan de rechterkant van het 
scherm wordt gedurende het spel de vol- 
gende informatte gegeven (van boven naar 
beneden : het aantal levens, de score, 
het energiepeil, de voorwerpen die je met 
je raee draagt, het percentage bezochte 
kamers en een rlchtingaanwijzer in de 
vorm van een kleine pijl. Je verliest een 


leven als je alle energLe verbruikt hebi , 
terwijl je er een leven bijkrljgt, als i- 
een bloem naar het startpunt brengL. :• 
verliest energie als je tegen pla t- i 
botst en/of erin verstrikt raakt , wannt *r 
je in aanraking korat met boomgeesten 4 
raagische barrieres en wanneer je nm« 
lukshoefijzers herkenbaar aan de naif 
beneden gerichte uiteinden) aanraakt. Je 
kunt je energievoorraad weer aanvulIt 
door het glinsterende stuifmeel, dat at 
en toe in beeld verschi jnt, op te pakkc i. 

De richtingaanwijzer heeft drie funk' U 
eerst geeft hij je de plaats aan waar )e 
een fles toverdrank kunt vinden, daaina 
wijst hij je de weg naar een bloem en tot 
slot leidt hij je weer naar het start¬ 
punt. Ben je op de plaats van bestemming 
aangekomen, dan verandert de pijl in een 
stip. Soms verdwijnt de pijl van het 
scherm. Je kunt hem dan weer aan het wt i k 
krijgen door een geLukshoefijzer (t> 
herkennen aan de naar boven geruht. 
uiteinden) op te pakken, hetgeen tevens 

je score verhoogt. Verder vind je in htt 
bos verschillende voorwerpen, die alien 
een bepaalde funktie hebben. Met sommtge 
kun je bepaalde geesten vernietigen, 
terwijl je met andere magtsche barrieres 
kunt doorbreken (tip: magische barrieres 
houden niet van muziek). We raden je a i,i 
om bij het begin van de tocht de fall el 
te pakken (m.b.v. het bankje) want daat 
mee breng je licht in de donkere ruimt*. 

Houd er wel rekening mee, dat je maximasl 
drie voorwerpen mee kunt dragen. 

DE' KAART 

0m je te helpen de weg in het wood Elid• i 
te vinden, hebben wij het in kaart 
bracht. Op deze kaart staan de verbindi 1 
gen tussen de kamers aangegeven , alsm* Je 
het startpunt en de vindplaatsen van de 
magische barrieres, het bank ie, de fak~ 
kel, de gelukshoefijzers en de grotten 

(die zijn de ruirates waar geen planten 
groeien en die witte rotsachtige wanden 
hebben). De vindplaatsen van de overige 
voorwerpen en van de flessen toverdrank 
en de bloemen (die overigens per spel 
varieren) hebben we nlet aangegeven; die 

moet je zelf maar zien te vinden. 

Gezien de oravang en de complexiteit an 
het doolhof is het niogelijk, dat de kaart 
niet geheel foutloos is. Toch menen wij, 
dat zij voor 99,9% klopt. Mochten we 
fouten ontdekken, dan zullen we die in de 
koraende nummers corrigeren. M.b.v. boven 
staande informatie en de kaart moet i • 
een fllnk eind in "Elidon" kunnen vorde- 
ren. Veel plezier en succes! 
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"Eiidon." wordt geleverd op cassette en is 
een produkt van Orpheus, dat in Nederland 
door Aackosoft wordt uitgebracht. Het 
spel kost fl. 45,—. 


HARRY SCHIFFELERS. 



D66ld * * * * * 

Geluid* * * * * 
Spelkwaliteit* * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * * * 


***** 

ZEER GQED 

**** 

GOED 

*** 

REOELIJK 

** 

MATIG 

* 

SLECHT 


VERKLARING DER TEKENBi 

Magische barriere 
Bs bankje <29,34) 

Ft fakkel <33,33) 

Gt grot 

Hs gelukshoef i jzer 
Ss start <31,34) 

-t verbinding tussen kamers 
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ADVENTURE 

TIPS 

LORDS OF TIME 
DOEL 

Te moet negen "ingredienten" (uit elk 
tijdperk een), waarmee de "Evil Time- 
lords" verslagen kunnen worden en acht- 
tien schatten verzamelen. 

TIPS: (m.b.t. het gedeelte, dat ik tot nu 
toe opgelost heb, ca. 70%) 

1. Reis per klok door de tijd. In de 
klok zijn 9 genummerde tandraderen, 
voor elk tijdperk 1. Draai aan het 
tandrad van het tijdperk, waar je 
naartoe wilt. Geef daarna de slinger 
een zet• 

2. Een bergje rommel en een hoopje com¬ 
post li jken van geen belang, maar ik 
zou ze toch eens nader onderzoeken. 

3. Met een spiegel en een bijl kun je 
een narcis en een wilgeboom op hun 
gemak stellen. 

4. Je ziet vreemde dingen als je padde- 
stoelen eet. 

5. Ga niet meteen op het aanbod van een 

tevreden gestelde fee in, anders zul 
je later vaak in het donker zitten. 

6. Maramoeten zijn bang voor vuur. 

7. De tijger moet dringend naar de tand- 
arts. 

8. Gil voor het effekt eens in de "diep- 
vriesgrot" en gooi het stukje Ijs 
later in het water. 

9. Gebruik in de grot van de zilvervos 
en in de rainiatuurtroonzaal het hou- 
weel. 

10. De Tyrannosaurus Rex en de Allosaurus 
doden alles en iedereen, ook elkaar. 

11. Kijk niet in de spiegel, maar laat 
hem de Brontosaurus zien. Laat de 
spiegel in de grot met de holbewoners 
vallen. 

12. Het zwarte oog vernietigt het skelet. 

13. In de Ruimte der Ontdekkingen spelen 
de kreet van Archimedes en de uitvin- 
der van de stoommachine een grote 
rol. 

14. Geef een rillende bewaker wat warrate. 

15. Gebruik de spade in de oude grot 
intensief. 

16. Blaas je schor, Piet in de nor. 

17. Help de heraut aan drank en de draak 
aan voedsel. 

18. Wat doet men in sprookjes met kik- 
kers? 

19. Welke speelkaart doet je denken aan 
een nar? 

20. Bespeel de luit op de trap. Ga dan 
niet W,0,0,NO en NW. 

HARRY SCHIFFELERS. 


COLOSSAL ADVENTURE 

DOEL : Je moet vijftien schatten naar het 

stenen gebouw naast het startpunt bren- 
gen, waarna het eindspel begint. Daarin 
moet je de elfen bevrijden en met de 
kroonjuwelen der elfen de grot verlaten. 

TIPS : 

1. Bet reed de grot door het rooster in 
de 20 voet diepe verlaging in de 
diepe, smalle vallei. 

2. Kleine vogeltjes zijn bang voor zwar¬ 
te staven, terwijl grote slangen 
niets moeten hebben van vogeltjes uit 
kooit jes. 

3. Met de zwarte staaf kun je bruggen 
tevoorschijn toveren. 

4. De piraat bewaart zijn schatten dicht 
in de buurt van de oranje kolora in 

het doolhof van identieke gangetjes. 

Ga vanaf de uiterste westkant van de 
Zaal der Nevelen Z,0,Z,Z,Z,N en 0. 

5. De batterijenautomaat bevindt zich in 
het doolhof van verschillende gange¬ 
tjes. Ga vanaf de westkant van de 
lange, kale zaal naar het Zuiden en 
twee keer naar beneden. 

6. Gooi de bijl naar de gemene dwergen, 
die herhaaldelijk in de grotten op- 
duiken. Denk eraan, dat je de bijl na 
een worp steeds weer oppakt. 

7. Laat de Mingvaas niet zomaar op de 
grond vallen; zij zal dan namelijk 
breken. Leg eerst het kussen uit de 
zachte ruimte op de grond, waarop je 
dan met een gerust hart de vaas kunt 
laten vallen. 

8. Lees de "Spelunker's Gazette" en leg 
haar neer in "Witt's End"; je krijgt 
dan bonuspunten. 

9. "Bedquilt" is een soort doolhof. 

Oost- en Westwaarts zijn steeds de- 
zelfde ruimtes, de richtingen naar de 
overige ruimtes wisseien voortdurend. 

10. Begiet het zaadje op de bodem van de 
westput twee keer met water uit de 
fles. De fles kun je vullen met ijs- 
water, dat zich op de bodem van de 
kleine, schone put bevindt. 

11. Vul de fles met olie uit de oostput 
en olie de roestige poort ten Noorden 
van de Reuzenkamer. 

12. Geef de troll, die de gammele brug 

over de kloof (W,ZW,N vanaf de Oos- 
terse ruimte) bewaakt, de Gouden 
Eieren uit de Reuzenkamer. Geef de 
beer de sandwiches. Maak hem daarna 
los, pak de ketting en neem de beer 

mee naar de brug. De beer zal de 

troll verjagen. Neem de beer niet mee 
over de brug! Ga daarna naar de Reu¬ 
zenkamer en zeg de toverwoorden (na 
elk woord de ENTER- of RETURN-toets 

drukken); de gouden eieren verschij- 

nen weer. 

13. De draak (ZW en W van de Zaal der 
Bergkoningen) kun je rustig met blote 
handen aanvallen. 

14. De klamp in de vloer van de ruimte 
met railjoenen schelpen kun je het 
beste met een drietand bewegen. 
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1.5. In de alkoof met de nauwe spleet in 
de muur (N en W vanaf de Oosterse 
ruimte) moet je alles, wat je met je 
raeedraagt, laten vallen. Jij kunt dan 
door de spleet de Kievitskamer ("Plo - 
ver Room") betreden. Ga NO en pak dan 
in het donker de pyramide. 

16. Als je in de ruimte met puin "XYZZY" 
en in de "Y2"-ruimte "PLUGH" zegt, 
keer je meteen terug naar het stenen 
gebouw. Omgekeerd geldt, dat wanneer 
je die woorden in het stenen gebouw 
uitspreekt, je meteen naar de betref- 

fende ruimte wordt getransporteerd. 

HET EINDSPEL : 

17. Ga naar de Noordoostkant van de grote 

zaal, waar dwergen liggen te slapen, 
leg er de staaf dynamiet neer en keer 
terug naar de Zuidwestkant. Zeg 
"BLAST”: het dynamiet explodeert en 

doodt de dwergen. Ga daarna ijlings W 
(3x), omhoog (5x), 0 en omlaag. Ga 

tenslotte westwaarts. 

18. Giet het levenselixit over de skelet- 
ten. 

19. Bevrijd de elfen uit hun ketenen. 

20. Ga naar de stenen wenteltrap en sluit 
de kerkerdeur, nadat je alle elfen 
hebt bevrijd. 

21. Doof de lamp als je met het pentagram 
de put in de vijfhoekige kamer wilt 
verlaten. 

22. Ga vanaf de kerkerdeur vier keer 
omhoog en 0: je komt dan in de grot 
met het reusachtige spinneweb. Hier 
liggen de kroonjuwelen der elfen 
verborgen. 

23. M.b.v. het pentagram kun je de spin 
kwijttaken. De spin raakt er namelijk 
gehypnotiseerd door en zal je gewil- 
lig volgen. Leid haar via de wentel¬ 
trap omhoog naar de bergtop en gooi 

het pentagram naar beneden. 

24. Verlaat de grot met het spinneweb via 

de bovenkant van het web. 

25. Verlaat het onderaardse rijk, "Colos¬ 
sal Cavern", via het rooster, waar- 
door je naar binnen bent gekomen. 

HARRY SCHIFFELERS. 

EMERALD ISLE 

DOEL: Je moet twintig schatten naar de 

scHatkamer in het paleis brengen en ach- 

ter het wachtwoord van zes letters zien 

te komen. 

TIPS: 

"To Maak de parachute los en neem hem mee 
naar het Oosten. 

2. Draag de mantel om het paleis in te 
komen. 

3. De naaister zit om stof verlegen. 

4. Op het politieburo wordt een porte- 
monnaie vermist. 

5. De spin is verzot op een goedgevulde 
lijmpot. 

6. Ga W,Z,W vanaf het spinneweb. 

7. Maak een boot m.b.v. een blok hout, 
een handbijl en een handdoek. 


8. De lamp is een oude carbidlamp en 
werkt m.b.v. water, carbidkorrels en 
lucifers. 

9. M.b.v. het spreukenboek kun je alle 
raededelingen lezen. Voor zeer klein 

schrift heb je een vergrootglas no¬ 
dig, waarraee je ook ver kunt kijken. 

10. Gebruik de hekpaal als stut en als 
sleutel van een monument. 

11. Gebruik de spade zoveel mogelijk. 

12. Gebruik op de oever met kleurrijk 
gravel niet de spade, maar de pan, 

13. Een ladder of een plank kun je ook 
als brug gebruiken. 

14. Bevestig de touwen aan de rotspunten 
in de buurt van de waterval. 

15. Draag spikes op steile, glibberige 
hellingen. 

16. Draag overalls op vliegvelden. 

17. Repareer de lift met de schroeven- 
draaier en de buigtang. 

18. Start de klok m.b.v. een klein sleu- 
teltje en open poorten met een ver- 
sierde sleutel. 

19. Beweeg m.b.v. een touw de arm van het 
beeld in de crypte. 

20. Gooi in de granieten grot een vrij 
zwaar voorwerp op de grond en tussen 
de pilaren een stenen blok. 

21. Gebruik de bootshaak in de lage gang. 

22. Zaagmachines zijn allergisch voor 

armbanden, 

23. Duw tegen de inscripties in de ruimte 
onder het monument. 

24. Uit het stadsmuseum is een beeldje 
ontvreemd. 

25. Beeindig het spel met weelde. 

HARRY SCHIFFELERS. 


CASSETTES 


De programme's uit de MSX-Gids zijn ook op 
cassette leverbaar. 

Cassette nr.3 bevat alle programma'a van 
Gids nr. 3 plus een complete 'STUNTVOGEL' 
waarin de velden 7,8 en 9 zijn opgenomen. 

Cassette nr. 4 bevat alle programme's uit 
de MSX Gids nr.4, cassette nr.5 uit Gids 
nr. 5 enz. enz. 

De cassettes kosten FI. 15,00 per stuk 
(incl. verzendkosten). 

Voor Belgie is de prijs BFr. 280,- 
Giro: 909515 t.n.v. A.Debels, Amsterdam. 
Voor Belgie: Rek.nr. 235-0430464-87 bij de 
Generale Bankmij. te Hasselt t.n.v. 
J.Herps, Amsterdam. 

Vergeet bij de bestelling niet het nummer 
te vermelden!!! 

HAAST?... Haal de cassette dan zelf bij: 
MSX S0FTSH0P, Vespuccistraat 48, 1056 SM 

Amsterdam. Bij de Softshop is ALLEEN DE 
LAATSTE cassette verkrijgbaar!!! 
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BIOS CALLS deel 2 

AIs een vervolg op bet vorige 
artikel over de BIOS ga ik het 
deze keer hebben over de 
subroutines die in verband staan 
met de printer, toetsenbord en de 
tekstscherraen. 

De volgorde waarin deze 
subroutines besproken worden is 
als volgt; de subroutine met bet 
laagste adres wordt bet eerst 
besproken en de subroutine met 
het boogste adres wordt bet 
laatst besproken, 

De subroutines worden due niet 
onderverdeeId in groepen, Dit 
wordt niet gedaan oradat veel van 
de subroutines in te delen zijn 
in meer dan 1 groep. 

De subroutines; 

CHSNS 

##### 

Het adres waar deze subroutine 
raoet aangeroepen worden is &H9C, 
Het eerste wat deze subroutine 
doet is kijken of een SHIFT toets 
ingedrukt is. Is dit zo dan 
zullen (als de funktie toetsen 
aan staan) de funktie toetsen F6 
tot F10 onderaan op bet scherm 
geplaatst worden. 

Het tweede dat deze subroutine 
doet is kijken of de toetsenbord 
buffer leeg is. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt, 

OUTPUT PARAMETERS; Als de 
toetsenbord buffer leeg is zal de 
2ERR0 flag gezet worden, Indien 
de toetsenbord buffer wel enig 
inhoud heeft zal de ZERRQ flag 
gereset worden. 


STAND VAN DE REGISTERS; Do enige 
register die van waarde kan 
veranderen is de accumulator. De 
andere registers bebouden bun 
oorspronke1ijke waarde, 

Interupts blijven mogelijk bij 
bet uitvoeren van deze 
subroutine. 

MOGELIJKHEDEN; In kombinatie met 
de subroutine "CHGET*’ is deze 
subroutine zeer goed te gebruiken 
om een toetsaanslag af te 
wacbten. 

CHGET 

##### 

Het adres waar deze subroutine 
raoet aangeroepen worden is &H9F, 
Deze subroutine geeft een 
karakter van de toetsenbord 
buffer. Indien de toetsenbord 
buffer leeg is wacbt de 
subroutine tot er een toets wordt 
ingedrukt. Indien mogelijk wordt 
de cursor op bet scherm 
geplaatst. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt, 

OUTPUT PARAMETERS; De accumulator 
zal de ascii waarde bevatten van 
bet karakter dat opgehaald was in 
de toetsenbord buffer, 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
verandert zijn is de accumulator, 
De flags kunnen eveneens 
verandert zijn doch de andere 
registers bebouden bun 
oorspronke1ijke waarde. 

Interupts blijven mogelijk bij 
bet uitvoeren van deze 
subroutine. 
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MOGELIJKHEDEN; Na de registers 
HL, DE en BC op de stack gepushd 
te hebben roept deze subroutine 
de hook CHGE aan. Daardoor wordt 
het mogelijk andere input 
mogelijkheden te gebruiken. 

Het beginadres van de hook CHGE 
is &HFDC2 

CHPUT 

##### 

Het adres waar deze subroutine 
inoet aangeroepen worden is &HA2 
Deze subroutine print een 
karakter op het scherm, Indien 

nodig zal het scherm een regel 
naar boven gescrold worden. 

INPUT PARAMETERS; De accumulator 
raoet de ascii waarde bevatten van 
het te printen karakter. De 
geheugenadressen CSRX en CSRY 
moeten de plaats op het scherm 
bevatten. 

OUTPUT PARAMETERS; De 
geheugenadressen CSRX en CSRY 
worden aangepast. 

STAND VAN DE REGISTERS; A1 de 
registers behouden hun 
oorspronke1ijke waarde. 

De geheugenadressen CSRX, CSRY en 
TTYPOS kunnen veranderen in in 
waarde. 

Interupts blijven raogelijk bij 
het uitvoeren van deze 
subroutine. 

MOGELIJKHEDEN; Nadat de registers 
HL, DE, EC en AF op te stack 
gepushd zijn roept deze 
subroutine de hook CHPU aan. 
Daardoor krijgt men de 
mogelijkheid de karakters naar 
andere output apparaten te 
sturen, bijv: 

poke &HFDA4,&HCD 
poke &HFDA5,&HA5 
poke &HFDA6,&H© 

Dit betekent zoveel als; CALL 
LPTOUT, Het effekt is dat al de 
tekst die bp het scherm gezet 
word ook uitgeprint word op de 
printer, 

Qm dit weer ongedaan te maken 
tikt men: 

poke &HFDA4,&HC9 


De hook CHPU ligt vanaf adres 
&HFDA4. De geheugenadressen CSRX 
en CSRY liggen respectieve1ijk op 
adres &HF3DD en op adres &HF3DC. 

LPTOUT 

###### 

Het adres waar deze subroutine 

raoet aangeroepen worden is &HA5. 

Deze subroutine stuurt een 
karakter naar de printer (als er 
een aangesloten is). Als de 
printer niet klaar is ora het 
karakter te ontvangen dan zal de 
subroutine wachten tot de printer 
wel klaar is ora het karakter te 
ontvangen of tot de stop toets 
ingedrukt is. 

INPUT PARAMETERS; De accumulator 
moot de ascii waarde bevatten van 
het te printen karakter, 

OUTPUT PARAMETERS; De CARRY flag 
word gezet als de stop toets 
ingedrukt word, Indien het 
karakter geprint werd dan zal de 
CARRY flag gereset worden. 

STAND VAN DE REGISTERS; Al de 
registers behouden hun 
oorspronke1ijke waarde. De flags 
kunnen verandert zijn. 

Interupts blijven mogelijk bij 
het uitvoeren van deze 
subroutine. 

MOGELIJKHEDEN; Deze subroutine 
roept eerst de hook LPTO. 

Daardoor is het mogelijk 
bijvoorbeeld al de karakters die 
naar de printer gezonden worden 
ook naar het -beeldscherm te 
zenden, Dit doet men dan met 
onderstaand voorbeeld. 

poke &HFFB6,&HCD 
poke &HFFB7,&HA2 
poke &HFFB8,&H0 

Dit betekend zoveel als CALL 
CHPUT. 

Om dit weer ongedaan te maken 
tikt men: 

poke &HFFB6,&HC9 

Het beginadres van de hook LPTO 
is &HFFB6 

LPTSTT 

###### 

Het adres waar deze subroutine 
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moet aangeroepen worden is &HA8, 
Deze subroutine kijkt of de 
printer klaar is ora een karakter 
te ontvangen. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht, 

OUTPUT PARAMETERS; Als de printer 
klaar is am een karakter te 
ontvangen zal de accumulator op 
255 gezet worden en de CARRY flag 
zal gereset worden. Indien de 
printer niet klaar is om een 
karakter te ontvangen zal de 
accumulator op nul gezet worden 
en de ZERRO flag zal gezet zijn. 

STAND VAN DE REGISTERS; De enige 
register die verandert kan zijn 
is de accumulator, De andere 
registers behouden hun 
oorspronke1ijke waarde. De flags 
kunnen verandert zijn na het 
uitvoeren van deze subroutine, 

MOGELIJKHEDEN; In kombinatie met 
de subroutine "QUTDLP"is deze 
subroutine goed te gebruiken om 
geen karakter naar de printer te 
kunnen zenden zonder dat deze 
reeds klaar is om een karakter te 
ontvangen, 

CNVCHR 

###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HAB. 
Deze subroutine zet de karakter 
code ora in het nunrmer dat het 
representeert in de video display 
processor, Voor de karakter codes 
32 to 255 zijn deze dezelfde als 
het patroon nuramer van dit 
karakter. De karakter codes 0 tot 
31 echter zijn besturings codes. 
De patroon codes 0 to 31 
representeren echter de karakters 
die tevoorschijn koraen door de 
GRAPH toets in te drukken. Deze 
karakters hebben twee karakter 
codes, Dit zijn besturings code 1 
gevolgd door een getal tussen 54 
en 95, 

INPUT PARAMETERS' De accumulator 
moet de karakter code bevatten 
die moet omgezet worden, 

OUTPUT PARAMETERS; Bij deze 
subroutine zijn er vier mogelijke 
verschi1lende soorten van output. 


A; Als de geheugenplaats GRPHED 
gelijk is aan 0 en de accumulator 
bevat besturings code 1 dan word 
de accumulator niet verandert 
maar de geheugenplaats GRPHED 
word op 1 gezet en de CARRY en 
ZERRO flags worden gereset, 

B; Als de geheugenplaats GRPHED 
gelijk is aan nul en de 
accumulator heeft gelijk welke 
waarde anders dan 1 dan warden de 
CARRY en de ZERRO flags gezet. 

C; Als de geheugenplaats GRPHED 
een getal bevat anders dan 0 en 
de accumulator bevat een getal 
tussen 64 en 95 dan zal de 
accumulator vermindert worden met 
64, de geheugenplaats GRPHED zal 
op 0 gezet worden, de ZERRO flag 
zal gereset worden en de CARRY 
flag zal gezet worden, 

D; Als de geheugenplaats GRPHED 
een getal bevat anders dan 0 en 
de accumulator bevat een getal 
kleiner dan 64 of groter dan 95 
dan wordt GRPHED op nul gezet, de 
accumulator behoud zijn 
oorspronke1ijke waarde en de 
ZERRO en CARRY flags worden 


STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
veranderen is de accumulator. De 
flags en de geheugenplaats GRPHED 
kunnen eveneens verandert zijn, 
Het adres van de geheugenplaats 
GRPHED is &HFCA6, 

PINLIN 

###### 

Het adres waar deze subroutine 
moet.aangeroepen worden is &HAE 
Deze subroutine doet juist het 
zelfde als de subroutine ”INLIN”. 
Het enige verschi1 is dat als de 
computer zich in automatische 
1ijnnummering bevind het 

indrukken van [CTRL-UI het 
lijnnummer niet zal wissen. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht, 

OUTPUT PARAMETERS; Het register 
HL zal na het volledig uitvoeren 
van deze subroutine wijzen naar 
het adres juist onder het eerste 
karakter in de buffer en de CARRY 
flag wordt gezet als [CTRL-STGP3 
ingedrukt word. 
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STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door bet uitvoeren van deze 
subroutine in waarde verandert 
zi j n. 

INLIN 

##### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HE1, 
Deze subroutine word gebruikt om 
een ganse lijn input aan te 
nemen, de karakters op het scherm 
te printen en deze in een buffer 
te plaatsen tot [RETURNS of 
[GTRL-STOP] ingedrukt worden, 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht, 

OUTPUT PARAMETERS; Het register 
HL zal na. bet volledig uitvoeren 
van deze subroutine wijzen naar 
het adres juist onder bet eerste 
karakter in de buffer en de CARRY 
flag wordt gezet als [CTRL-STOP! 
ingedrukt werd, 

STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door bet uitvoeren van deze 
subroutine in waarde verandert 
zi j n, 

QUINLIN 

####### 

Het adres waar deze subroutine 
moet aangeroepen worden is &KB4. 

Deze subroutine is volledig 
gelijk aan de subroutine "INLIN" 
met dat verschil dat er eerst een 
vraagteken op bet scherm 
geplaatst word, (Deze subroutine 
word door de ram gebruikt bij de 
instruktie INPUT!) 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt. 

OUTPUT PARAMETERS; Het register 
HL zal na bet volledig uitvoeren 
van deze subroutine wijzen naar 
bet adres juist onder bet eerste 
karakter in de buffer en de CARRY 
flag wordt gezet als ICTRL-STOPJ 
ingedrukt werd. 


STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door het uitvoeren van deze 
subroutine in waarde verandert 
z i j n, 

EREAKX 

###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HB7. 

Deze subroutine kijkt als de 
[CTRL-STOPI toetsen zijn 
ingedrukt. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt, 

OUTPUT PARAMETERS; Als de 
ICTRL-STOPI toetsen ingedrukt 
waren dan word de CARRY flag 
gezet. Als de [CTRL-STOPI toetsen 
niet ingedrukt waren word de 
CARRY flag gereset. 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
verandert zijn is de accumulator. 

De flags kunnen eveneens 
verandert zijn na uitvoering van 
deze subroutine. 

Deze subroutine hoeft enkel 
gebruikt worden wanneer interupts 
niet mogelijk gemaakt zijn, 

ISCNTC 

###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HBA 
Deze subroutine kijkt als de 
[STOP] toets is ingedrukt. Is de 
'Stop toets ingedrukt dan wacbt 
deze subroutine tot de LSTOPI 
toets terug ingedrukt word of tot 
de [CTRL-STOP] toetsen ingedrukt 
zijn, als de [CTRL-STOPI toetsen 
zijn ingedrukt gaat de computer 
naar de BREAK toestand. Dit wil 
zeggen; Het scherm gaat over in 
een tekst mode en sprlngt terug 
naar BASIC, 

Als de toetsen CCTRL-ST0P3 of 
[STOP] niet ingedrukt zijn dan 
gebeurt er niets, 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt. 

OUTPUT PARAMETERS; De 
gebeugenplaats INTFLG zal de 
waarde 3 bevatten als de toetsen 
[CTRL-STOP] ingedrukt waren. De 
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geheugenplaats INTFLG zal de 
waarde 4 bevatten als de C STOP] 
toets ingedrukt was. 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
verandert zijn is de accumulator, 
De flags kunnen eveneens 
verandert zijn evenals de 
gehuegenplaatsen INTFLG en 
KILBUF. 

De geheugenplaats INTFLG staat op 
adres &HFC9B 

OPMERKING; Interupts moeten 
raogelijk gemaakt zijn om deze 
subroutine aan te kunnen roepen. 

CKCNTC 

###### 

Het adres waar deze subroutine 
meet aangeroepen worden is &HBD. 
Deze subroutine doet juist bet 
zelfde als de subroutine "ISCNTC” 
doch deze subroutine is een 
ietsje trager. 


INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt. 

OUTPUT PARAMETERS; Bij deze 
subroutine worden er geen output 
parameters gegeven. 

STAND VAN DE REGISTERS 
De enige register die verandert 
kan zijn is de accumulator, De 
andere registers behouden hun 
oarspronkelijke waarde. De flags 
kunnen verandert zijn na bet 
uitvoeren van deze subroutine, 


BEEP 

#### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HC0, 
Deze subroutine geeft, zoals de 
naam reeds zegt, een beepje, 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacbt. 

OUTPUT PARAMETERS; Bij deze 
subroutine worden geen output 
parameters gegeven, 

STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door het uitvoeren van deze 
subroutine in waarde verandert 
zi j n. 


De gebeugenplaatsen MUSICF, 
PLYCNT,VCBA tot VCBA+4,VCBB tot 
VCBB+4, VCBC tot VCBC+4 kunnen 
door het uitvoeren van deze 
subroutine van inboud verandert 
z i j n. 

OPMERKING; Door bet uitvoeren van 
deze subroutine word de sound 
generator volledig gereset. 

&&&&& 


Dit was het dan voor deze keer. 

In bet volgende artike1 zal ik 
verder gaan met bet bespreken van 
de BIOS subroutines voor bet 
toetsenbord, de printer en de 
tekst schermen. 


Buysse M. 


TEKST DUBBEL - TWEEDE SET HOODFLETTERS 

DATA 132,151,141,139,140,148,129,177,161, 

145,179,181,230,164,162,163,131,147,137, 

150,130,149,136,138,160,133 

FOR AS=65 TO 90 

READ CO 

AS=AS*8+BASE(7) 

C0=C0 *8+BASE(7) 

FOR Q=0 TO 7 

VPOKE(C0+Q),VPEEK(AS+Q) 

NEXT Q,AS 
RETURN 

Wanneer, in een prograrama, de bijzondere 
leestekens tussen ASCII 129 en ASCII 230 
niet gebruikt worden kan, met bovenstaande 
routine, in dit bereik, een tweede set 
hoofdletters gemaakt worden. De data zorgt 
er voor dat alles op de goede plaats 
terecht komt. Hierdoor kunnen de tekens 
uit de tweede set, simpelweg door de des- 
betreffende toets in te drukken, ingetikt 
worden. (In screen 1.) 

Door nu, met de kleurdefinitie routine, de 
groepen 16 t/m 28 van een andere kleur te 
voorzien kunnen b.v. gekleurde koppen 
tekst direkt in het programma ingetikt 
worden. Let wel op dat de capslock toets 
niet ingedrukt is. 

QUICK SPRITE 

Het definieren van sprites is met de 
hierboven besproken methode weliswaar 
makkelijker geworden maar het kan nog 
eenvoudiger! 

In de karakterset van de MSX machines zijn 
namelijk al 256 van deze patronen -kant en 
klaar- voorradig. Het enige dat moet 
gebeuren is het kopieeren van deze 
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patronen naar de sprite raappen en dat kan 
met de onderstaande routine die als volgt 
wordt gebruikt: 

Variabele SN krijgt de waarde van de te 
definieren sprite en variabele AS krijgt 
de waarde van het ASCII code teken, van 
welke we het patroon willen kopieeren. Dan 
springen we naar de subroutine en voila, 
de computer doet de rest. 

B.v.: SN=1:AS=14:G0SUB (routine) . geeft 
sprite nr.l de vorm van de muzieknoot 

CHR$(14). 

De waardes, die voor B ingevuld moeten 
worden, zijn, bij gebruik van: 

SCREEN1 B= 9 en voor C, C=7 
SCREEN3 B=19 en voor C, C=17 

Routine: 

SN=SN*8+BASE(B) 

AS=AS*8+BASE(C) 

VPOKE(SN+I),VPEEK(AS+I) 

NEXT I 
RETURN 

TEKEN-KLEUREN HERDEFINIEREN 

TG = nr. van tekenset 
VK = nr. voorgrondkleur 
AK = nr. achtergrondkleur 

C=VK*16+AK 
CS=BASE(6)+TG 
VPOKE(CS,C 
RETURN 

Met het bovenstaande programmaatje (routi¬ 
ne) wordt het mogelijk tekst en grafische 
tekens in diverse kleuren op een scherra 
(SCREEN1) te gebruiken. 

Het is b.v. mogeljk de letters en de 
cijfers een andere kleur te geven of -om 
samen met de text-dubbel routine— twee 

kleuren tekst te gebruiken. Ook is het 
mogelijk grote vlakken snel van kleur te 
laten veranderen. (Dit werkt vele malen 
sneller dan FAINT of LINE,BF in SCREEN2). 

Het tekensetnummer staat voor een groep 
van 8 tekens waarvan de eerste de ASCII 
code heeft die gelijk is aan tekenset 
nr.x8. 

B.v. tekenset 8 bevat de tekens 8*8=64 t/m 
64+7=71 (ABCDEFG + het 'apestaartje'). 

Dus: 

VK>15:AK=7 
FOR TG=8 TO 11 
GOSUB (routine) 

NEXT TG 

stelt alle hoofdletters (ook die, welke al 
op het scherm staan) in de kleur wit op 
rood. 

LET OP ! ! 

De lege plaatsen op het scherm zijn gevuld 
met spaties. Dus als de achtergrondkleur 
van groep 4 verandert zullen alle lege 
plaatsen -op het scherm- ook van kleur 
veranderen. 


PLAY 

Een van de mooiste mogelijkheden van MSX- 
BASIC is de eenvoud waarmee muziekstukken 
in de computer te stoppen zijn. Door de 
PLAY-instructie verandert de computer in 
een soort electronische piano. 

In gronde genomen ziet een piano er zo 
uit: 

Elke witte toets heeft een naam, van A t/m 
G, overeenkomst Lg de noten A t./m G. De 
zwarte toetsen geven een verhoging -of 
verlaging- van een halve toon en hebben 
dus ook namen als A+,A-,G+ enz. Tussen de 
D en de E ligt b.v. een zwarte toets met 
de naam D+, maar deze toets beet ook E-, 
want ze ligt een halve toon lager dan de D 
en weer een halve toon hoger ligt de E. 
Qmdat bij een piano niet op elke witte 
toets eem zwarte volgt, zijn combinaties 
als E+ en B+ helaas onmogelijk; evanals b. 
v. F- en C~. 

De pianotoetsen zijn ingedeeld in groepjes 
van 7 toetsen. Deze groepjes zijn 
genummerd van 1 t/m 8; van lage tonen naar 
hoge tonen. Een zo'n groepje heet een 
octaaf. De groepjes bestaan uit de 
volgende tonen: CDEFGABC. Voor de 
pianist maakt deze -nogal vreemde- 
volgorde niets uit maar de MSX-er kan zich 
nogal makkelijk vergissen; b.v. bij het 
maken van een toonladder. Deze moet dus 
beginnen bij de C en eindigen bij de 1 
octaaf hoger gelegen C. Met de 
PLAY-instructie gaat dat als volgt: 

Na PLAY moeten aanhalingstekens worden 
gebruikt want alles, wat er gePLAYed moet 
worden, boort in een STRING te staan. Het 
nummer van de octaaf is aan te geven door 
een cijfer (1 t/m 8); waarbij de 1 voor de 
laagste- en de 8 voor de hoogste octaaf 
staat. Daarna kunnen de te spelen LOnen 
opgegeven worden met behulp van de daarbij 
behorende letters. De MSX-er hoeft alleen 
maar het volgende, gevolgd door RETURN, in 

te typen: 

PLAY "04 CDEFGAB 05 C" 

0m het geheel iets lager te horen kunnen 
de 4 en de 5 -na de 0's- in b.v. een 2 en 
een 3 veranderd worden. Een toonladder, 
gevolgd door een toonladder achterstevo- 
ren, vraagt ora nog meer gedoe met octaven: 

PLAY "04 CDEFGAB 05 C 0C BAGFEDC" 

0m geliik maar te bewijzen dat D+ en E- 
dezelfde noot geven zal de volgende 
opdracht dan ook slecht 1 toon geven: 

PLAY "D+E-” 

Natuurlijk zijn er nog meer dingen 
mogelijk met PLAY. De lengte van de tonen 
gebeurt met de letter L; gevolgd door een 
getal van 1 tm 64. 1 staat voor een hele 
noot, 2 voor een halve, 3 voor een derde 
enz. enz. 


C.C.R. Poirot. 
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Als de lengte niet wordt opgegeven gaat de 
computer uit van LA (want 1/A noot is 1 
t el) . 

De lengte mag ook direkt achter de letter 
van de toon worden gezet; FLAY"L2C” is 
hetzelfde als ”PLAY"C2". 

Als achter de letter van de noot een punt 
wordt gezet dan neemt de lengte toe met de 
helft* PLAY"L4C." duurt dus 1 1/2 tel; 
PLAY"LAC..," duurt 1 1/2 + de helft ervan 
+daar de helft van. D.i. 12/8+6/8+9/8=27/8 
maal zolang als PLAY"L4C”. 

Ook bet tempo kan worden gekozen. Dit 
gebeurt met de letter T, gevolgd door een 
getal (min. 32 en max. 255). Dit getal 
geeft het aantal 1/A noten per minuut aan, 
dus met lengte A en tempo 60 duurt elke 
toon 1 seconde. Probeer maar uit met: 

PLAY ”LAT60A” 

Natuurlijk is het ook mogelijk om met 
verschillende volumes te spelen, wat wordt 
aangegeven met de letter V, gevolgd door 
een getal van 0 t/m 15. 15 is het hardst; 
0 is het zachts. 

PLAY”V15L4T60A” voor een harde A 
PLAY"V6 L4T60A” voor een zachte A 

Een pauze is in te lassen met de leter R 
(rust), gevolgd door een cijfer tussen 1 
en 6A. 1 geeft een voile rust, 2 een 
halve, 3 een derde enz. enz. 

PLAY"OAT200 CDEFGAB 05CR2T100 COA BAGFEDC" 
geeft eerst een snelle toonladder omhoog, 
dan een pauze, en dan gaan de tonen weer 

oralaag. 

Vender hebben alle tonen ook nog een 
nummer van 0 t/m 95. Om een bepaald nummer 
te horen moet eerst een N (van nummer) 
worden opgegeven, gevolgd door een getal. 
De A, van de Ae octaaf heeft b.v. nummer 
45, de B van de 4e octaaf heeft nummer 47 
en de A van de 5e octaaf numer 57. PLAY”04 
A N45 B N47 05A N57” laat drie lange tonen 
horen. Deze manier is overigens zeer 
omslachtig en is daarom alleen handig voor 
toonladders van heel laag naar heel hoog; 
bijvoorheeld: 


FOR LEX=1 TO 95:PLAY"T250L6A N=LEX;":NEXT 

Het Is ook mogelijk de golfvorm van de 
tonen te klezen; om hlermee verschillende 
instrumenten na te doen. Dit gebeurt door 
een S(sound), gevolgd door een getal van 0 
t/m 15. Deze getalen staan voor de 
golfvormen die in de tabel staan in de MSX 
Gids nr. 2 op pag. 22. De tijd van deze 
golfbeweging is in te stellen met behulp 
van de letter M (modulatie), gevolgd door 
een getal van 1 t/m 65535. Hierbij zorgt 
de 1 dat de golf supersnel voorbij komt 
rollen en 60000 zorgt voor een erg trage 
golf. Met erg lage waarden zljn trouwens 
rare geluiden te flatten. Probeer het 
volgende maar eens: 


PLAY”S9 M3000 04 CDEFGAB'’ 

PLAY"S11M1000 04 CDEFGAB" 

PLAY"S8 M30 04 CDEFGAB” 

0m op meerdere kanalen tegelijk te spelen 
moeten er komma's tussen de strings staan. 
B.v. PLAY"OAT200 CDEFGAB”,"0AT200 BAGFEDC" 

Lex v.d. Hondel 


HOE GEBRUIK IK 
IDE V I DEO RAM 

Hoe kan ik de VIDEO RAM goed gebruiken? 
Ik heb toch de talrijke basic 
instrukties? 

Dit zijn zo van die vragen waar veel 
amateur-programeurs ntee z it ten, Daarom 
dit artikel waar ik zo duidelijk 
mogelijk in zal trachten uit te leggen 
waarom het rechtstreeks programmersn van 
de VIDEO RAM soms noodzakelijk is, En 
vooral hoe dit kan gebeuren, 

De eerste reden waarom veel mensen 
zullen beginnen aan de VIDEO RAM is dat 
het zonder de grondige kennls van de 
VIDEO RAM het praktis onmogelijk is een 
machine taal programma te maken. Vooral 
eem machine taal programma dat werkt met 
een van de grafische schermen is zonder 
de kennis van de VIDEO RAM niet te 
maken. In machine taal beschikt men 
namelijk niet aver instrukties zoals 
LIME en CIRCLE en dergelijke meer. 

De tweede reden waarom het rechtstreeks 
programeren van de VIDEO RAM soms nuttig 
is, is dat sommige dingen veel sneller 
gaan en minder geheugen vragen. 


TEKENEff Iff SCREEN 2. 

Een van de nogal ingewikkelde dingen in 
de VIDEO RAM is het tekenen in screen 2. 

In screen 2 beschikt men namelijk over 
een bitmap geheugen en een kleuren 
geheugen. Deze twee geheugenblokken zijn 
elk 6144 bytes lang, 

Dat wil zeggen dat hoewel er ± 49 
pixels op het scherm staan er slechts 
6144 bytes voor het bitraapgeheugen 
gereserveerd zijn. Met een beetje 
rekenen komt men dan tot het besluit dat 
er voor elke 8 pixels 1 byte geheugen 
gereserveerd Is. Daar er in elke byte 8 
bits zijn is de logische konklusie dat 
elke bit 1 pixel bestuurt, Dat wil 
zeggen dat de bit ofwel op <b gezet wordt 
en daarom zal hij de achtergrondkleur 
krijgen ofwel op 1 gezet wordt en 
daardoor krijgt hij de voorgrondkleur. 

En zo zijn we dan ook bij het 
kleurgeheugen aangekomen, Daar het 
kleurgeheugen evengroot is als het 
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bitmapgeheugen kan men per acht pixels 
twee kleuren aangeven, Dit zijn de 
gewenste voorgrondkleur en de gewenste 
achtergrondkleur. 1 

U zult mischien denken twee kleuren met 

1 byte hoe gaat dat? Dit is zeer 
eenvoudig daar er slechts keuze is 
tussen 16 kleuren, Dat wil zeggen dat in 
de hoogste 4 bits de voorgrondkleur zit 
en in de laagste 4 bits de 
achtergrondkleur. 

Om gemakkelijk deze twee kleuren te 
berekenen hoeft men niet noodzakelijk 
met binaire cijfers te werken dit kan 
ook eenvoudig berekend worden met 
volgende formule: 

voorgrondkleur maal 16 plus 
achtergrondkleur. 

De plaatsen waar de acht pixels liggen 
van elke byte is nogal ingewikkeld, 

De eerste acht horizontaal naast elkaar 
liggende pixels komen overeen met de 
eerste byte van het bitmapgeheugen, De 
acht daaronder liggende bytes komen 
overeen met de tweede byte. Dit tot de 
achtste byte, De negende byte echter 
komt overeen met de acht horizontaal 
naast elkaar liggende pixels die naast 
de eerste acht pixels liggen. De 
volgende byte korat overeen met de acht 
pixels die onder de vorige liggen, 
Tekening 1 geeft hierbij wat meer 
duidelij kheid. 

De bytes van het kleurgeheugen komen 
overeen met die van het bitmapgeheugen. 
Dat wil zeggen dat de eerste byte van 
het kleurgeheugen correspondeerd met de 
eerste byte van het bitmapgeheugen, de 
tweede byte van het kleurgeheugen 
correspondeert met de tweede byte van 
het bitmapgeheugen enz.., 

Door onderstaand programmat in te tikken 
zal u waarschijnlijk iets meer begrijpen 
van hoe het bitmapgeheugen en het 
kleurgeheugen werken. 


10 

SCREEN 

2 


20 

FOR 1 = 

&H2000 

TO &H3800 

30 

VPQKE 

1,27 


40 

NEXT I 



50 

FOR I- 

&H0 TO 

&H17F8 STEP 8 

60 

VFQKE 

I, 16 


70 

VPOKE 

1+1,56 


80 

VPOKE 

1+2,56 


90 

VPOKE 

1+3,16 


100 

VPOKE 

1+4,124 


110 

VPOKE 

1+5,16 


120 

VPOKE 

1+6,40 


130 

VPOKE 

1+7,108 


140 

NEXT I 




Dit klein programma tekent steeds meer 
mannetjes op het scherm door het 
rechtstreeks inschrijven van de VIDEO 

£ Ham, 

'Op de lijnen 20 tot en met 46 wordt het 
kieurengeheugen van het volledige scherm 
ingeschreven. het krijgt zwart als 
voorgrondkleur en geel als 
achtergrondkleur. 

Op de lijnen 50 tot en met 140 wordt 
door middel van een fornext-lus het 
bitmapgeheugen ingeschreven. 

Men raoet er echter wel rekening mee 
houden dat als men het programma start 
het een heel poasje duurt voar men iets 
zal zien. Daar het kleurgeheugen op de 
goede kleur zetten nogal lang duurt! 

GPMERKING; 

Als men nu bijvoorbeeld een tekening wil 
maken moet men behalve het inschrijven 
van het bitmapgeheugen ook het 
kleurgeheugen ingeschrijven. Of als men 
bijvoorbeeld een tekening naar de RAM 
<niet de VIDEO RAM) wil overschrijven om 
eventueel deze daarna op cassette te 
laden mag men absoluut het kleurgeheugen 
niet vergeten. Het kleurgeheugen moet 
dus absoluut ook ingeschreven worden 
daar men anders niet veel van de 
tekening te zien krijgt. 

SPRITE’S BESTUREN. 

Zoals u wel dacht is het mogelijk door 
middel van het rechtstreeks inschrijven 
van de VIDEO' - RAM mogelijk sprite’s te 
definieren en te besturen. Hoewel het 
iets minder eenvoudig is de sprite’s te 
besturen door middel van het 
rechtstreeks inschrijven van de VIDEO 
RAM is het resultaat veel beter. De 
uitvoering van de bewegingen die men de 
sprite wil laten doen gebeurt namelijk 
veel sneller dan met de gewone 
instruktie PUT SPRITE. 

Doch om met het begin te beginnen zal ik 
eerst trachten uit te leggen hoe men de 
sprite’s definieert. 

In de VIDEO RAM is er een geheugenblok 
"SPRITEPATRONEN-GENERATOR" genoemd. De 
methade om de getallen die men in dit 
geheugenblok moet schrijven te bekomen 

is volledig gelijk als bij het normale 
definieren van de sprite’s. Als het om 
kleine sprite's gaat (acht pixels op 
acht pixels) dan wordt de 
spritepatronen-generator in 256 blokjes 
van elk acht byte’s verdeeld, zodat in 
het eerste blokje van acht byte's de 
data's van de eerste sprite geschreven 
kunnen worden, in het tweede blokje van 
acht byte’s kunnen de data’s van de 
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tweede sprite geschreven warden enz.,, 

Als het gaat ora grate sprite’s (zestien 
pixels op zestien pixels) dan wordt de 
spritepatronen-generator in 64 blokjes 
van elk 32 byte’s verdeeld. Zodat in het 
eerste blokje van 32 byte's de data's 
van de eerste sprite geschreven kunnen 
worden, in het tweede blokje van 32 
byte’s kunnen de data’s van de tweede 
sprite geschreven worden enz... 

Qm de sprite’s te besturen is er in de 
VIDEO RAM het SPRITEKENMBRKEN GEHEUGEN. 

In dit geheugenblok bevind zich al de 
informatie van de sprite’s, de kleur, de 
X as, de Y as en het sprite nununer. In 
dit geheugenblok is er slechts plaats 
voor 32 sprite’s. Daardoor kan men 
slechts 32 sprite’s tegelijk op het 
scherm plaatsen, 

Het spritekenmerk-geheugen is in 32 
kleine blokjes van 4 byte’s verdeeld. In 
de eerste byte van elk blokje kan de Y 
waarde van de desbetreffende sprite 
geschreven warden. In de tweede byte van 
elk blokje kan de X waarde van de 
desbetreffende sprite geschreven worden. 
In de derde byte van elk blokje kan de 
kleur van de desbetreffende sprite 
geschreven worden. En in de vierde byte 
van elk blokje tenslotte kan het sprite 
nunnner van de desbetref fende sprite 
geschreven worden. 

In het onderstaande pragramma wordt nog 
eens duidelijk het verschil in snelheid 
tussen het rechtstreeks inschrijven van 
de VIDEO RAM en de gewone instruktie PUT 
SPRITE getoond. 

Martin Buysse 


10 SCREE IT 2 

20 SPRITES(0)=CHR$(255)+CHR$ <255 > 
30 PUT SPRITE®,(0,50), 15,0 
4® TIME=0 

50 F0RI=1T0255 
60 VPQKE &H1B01,I 
70 NEXT I 
80 TR=TIME 
90 FQRI=1TQ50 
100 NEXTI 

110 PUT SPRITE0, (0,50),15,0 

120 TIKE=0 

130 FQRI=1TQ255 

140 PUT SPRITE®, <1,50),15,0 

15® NEXT I 

160 TT=TIME 

170 SCREEN0 

180 PRINT TR;TT 


ON KEY GOSUB 


ON KEY GOSUB nn,nn 

Het gebruik van de F-toetsen kan een 
orogratnma een duidelijke opzet geven en 
let is een groot gemak dat de MSX 
computer op dit punt goed doordacht is 
opgezet. 

Met de MSX kan met die vijf toetsjes 
bovenaan het toetsenbord wonderlijk veel 
worden gedaan. Tijdens het invoeren van 
gegevens kan een F-toets worden 
gebruikt, tenminsste als het programma 
daarin voorziet, om series letters die 
vaak voorkomen met een toetsaanslag in 
te voeren. Het is daarnaast ook nog 
mogelijk om de F-toetsen voor een 
speciaal doel te gebruiken, bijvoorbeeld 
Fl = Hulpmenu, F2 = Tekst uitlijnen, F3 
~ regel wissen. 

KEY LIST 

Als bovenstaand commando wordt in- 
getoetst tijdens het programmeren kan de 
programmeur zien welke strings er op dat 
moment onder de toetsen staan. 

KEY 1, "GOEDENDAG !*’ 

Zo plaatst U een andere string onder de 
eerste F-toets. Het getal mag varieren 
tussen 1 en 10. De lengte van de string 
mag totaal 15 tekens zijn. 

KEY ON 

Is het commando om op de onderste regel 
van het beeld de eerste vijf functles te 
tonen, en als shift wordt ingedrukt dan 
ziet men de laatste vijf functies. Met 
KEY. OFF verdwijnt deze melding, en is de 
onderste regel weer bruikbaar voor 
andere zaken. 

Dit bovenstaande is niet het gebruik van 
de F-toetsen als functietoets maar als 
"eentoets"-invoer. In het volgende 
voorbeeld programmaatje is zowel dit als 
de raogelijkheid van ON KEY GOSUB 
verwerkt. 


10 REM TESTPROGRAMMA 
20 ON KEY GOSUB 1010,1020,1030,1040, 
1050,1060,1070,1080,1090,1100 
30 KEY 1,"HALLO " 

40 KEY 2,"HOE GAAT HET " 

50 KEY 3, "MET J0U, MET ” 

60 KEY 4, "MT.J GAAT HET " 

70 KEY 5,"GOED, EN DAT ” 

80 KEY 6, "IS HET V00R- " 

90 KEY 7,"NAAMSTE ! " 


40 
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200 COLOR 1,15: CLS 

210 PRINT A: INPUT "VOER TETS IN'* A$ 
220 GOTO 210 

1000 REM SUBROUTINES 
1010 C=C+1: IF 015 THEN C=1 
1015 COLOR C,15: CLS: PRINT 4$: 
RETURN 

1020 A-12 : RETURN 

1030 A=39: RETURN 

1040 A=99: RETURN 

1050 BEEP: BEEP: RETURN 

1060 CLS: PRINT A$: RETURN 

1070 A=6: RETURN 

1080 A=0: RETURN 

1090 KEY ON: RETURN 

1100 KEY OFF: RETURN 


Dat is en groot stuk om in te voeren 
alleen maar voor een voorbeeld maar doe 
het toch maar even. RUN het en merk dat 
etr lets mist. Het is namelijk zo dat 
niet alleen aan het begin van het 
programma opgedragen meet worden om, als 
een toets wordt ingedrukt, naar de 
bepaalde regel te gaan maar ook: 

100 KEY (1) ON 

Voeg dit toe, en merk op dat nu de 
bovenste negen toetsen zlch gedragen als 
toets met string tekens er onder, en 
alleen toets 1 als een F-toets! 

100 FOR A=1 TO 10: KEY (A) ON: NEXT 

RUN het programmaat je opnieuw en merk 
dan dat de strings zich niet meet laten 
oproepen, maar wel de subroutines. 

Als er handig gebruik gemaakt wordt van 
KEY (nummec) ON en KEY (nummer) OFF, dan 
zal de gebruiker de indruk krijgen dat 
het wel mogelijk is om zowel functLes of 
subroutines aan te roepen als strings 
met de F-toetsen in te voeren. 

KEY ON is niet hetzelfde als KEY 
(nummer) ON !, Met KEY ON/OFF wordt al 
of niet getoont welke strings op dat 
moment onder de F-toetsen zitten en dat 
geldt alleen voor SCREEN 0 en 1. Op 
SCREEN 2 en SCREEN 3 wordt niets 
getoond. 

Lastig wordt het als d.m.v. KEY OFF en 
KEY (nummer) OFF zowel de melding onder 
aan het beeld verwijderd wordt en ook de 
GOSUB-functie wordt uitgeschakeld en 
onder de toetsen nog wel een string zit! 
Als tijdens een INPUT of INKEY$ naar 
lets gevraagd wordt en men drukt op de 
F-toets dan wordt de inhoud van string 
inge-voerd. Het is daarom nut tig om twee 
subroutines te maken: een voor de tekst 
die voor het programma belangrijk is en 
een met enkel lege strings. Dan laat U 
het programma door middel van een G0SUB 
voor de keuze de tekst onder in het 
beeld zetten en na de keuze zet U lege 
string onder in beeld en als per ongeluk 


de F-toetsen worden ingedrukt gebeurt er 
niets. 

Als de routines die via de F-toetsen 
worden aangeroepen zoveel tijd kosten 
dan er tijdens het doorlopen ervan weer 
op een F-toets kan worden gedrukt KAN de 
routine opnieuw wordt aangeroepen! Dit 
kan heel erg lastig uitpakken. 
Bijvoorbeeld F3 = regel verwijderen, en 
de routine laat even op zich wachten, en 
U drukt twee maal op F3, dan bent U twee 
regels kwljt! 

Daarvoor zljn twee oplossingen mogelijk, 
de eerste is aan het begin van de 
subroutine een andere subroutine aan 
te roepen waarmeer alle ON KEY G0SUB 
worden uitgeschakeld. 

Dit is zo'n subroutine: 

1010 GOSUB 2000 

1012 PRINT "DRUK EENS OP EEN 

FITNCTT F—TOFTS t" 

1014 PRINT "(SPAT IE BALK = TERUG)’’ 

1016 A$=INKEY$: IF A$=CHR$(32) GOTO 
1018 ELSE GOTO 1012 
1018 GOSUB 3000: RETURN 


2000 FOR A“1 TO 10: KEY (A) OFF: 

NEXT A: RETURN 

3000 FOR A=1 TO 10: KEY (A) ON: NEXT 
A: RETURN 

Nu is het niet mogelijk om tijdens het 
doorlopen van de ene subroutine weer 
naar een andere te springen. Dat kan pas 
als er terug gekeerd wordt. Het is 
mogelijk om wel de toetsindruk te 
signaleren, maar pas opniew te GOSUBben 
(nieuw woord!) als er is geRETURd. Dit 
wordt gedaan met ON KEY (nummer) STOP 

2000 FOR A=1 TO 10: KEY (A) ON: NEXT 
A: RETURN 

Wat ik U nu heb uitgelegd staat 
rechtlijnig tegenover dat wat in het 
standaardwerk voor de MSX staat vermeld. 
Officieel behoort de MSX tijdens de "ON 
KEY"-G0SUB routine zelf een KEY (nummer) 
STOP te genereren, echter er is mij 
bekend dat niet elke computer dit doet! 
En dan ook nog niet eens altijd! Maar de 
computer een opdracht geven iets te doen 
wat deze vanzelf had moeten doen kan 
nooit erg wezen. Dus aan het begin van 
een "ON KEY’ 1 - subroutine gewoon altijd 
een KEY (nummer) STOP/OFF geven, en net 
voor RETURN een (eventueel, hoeft niet) 
KEY (nummer) ON. 
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MACHINETAAL OP DE MSX 


deel 3 


In de vorige les bespraken we de binaire 
optelling in machinetaal (ADD, ADC). Deze 

les vervolgen we met de andere reken- 
kundige instrukties die de Z80 in petto 
heeft. Daarna volgt een vrij taai en 
moeilijk gedeelte over I6~bits load- 
instrukties. Maar troost U, wanneer U zich 
door deze zure appel heeft heengebeten, 
wordt bet machinetaal-programmeren pas 
echt interessant. Met de kennis die we dan 
hebben kunnen we gebruik maken van 
machinetaal programma's die Microsoft voor 
ons in het ROM geheugen van de computer 
heeft geplaatst. Het is dan mogelijk om 
vanuit machinetaal het beeldscherm te 
vullen, het toetsenbord uit te lezen, de 
printer aan te sturen enz. enz. 

Vorige les bespraken we de 8-bits binaire 
optelling. Bij binalr aftrekken gaan we op 
eenzelfde wijze te werk. 

Vb 1. In de accu worden de binaire getal- 

len 11010011 en 10001011 van elkaar 
afgetrokken. 

11010011 (D3 hex) 

10001010 (8A hex) 

- (- 

01001001 (49 hex) 

We gaan precles hetzelfde te werk als bij 
het van elkaar aftrekken van twee getallen 
in het decimale getalstelsel. Bij het 
vierde bit krijgen we: 0-1. We lenen nu 
een ”1" van het vijfde bit; deze is echter 
niet een factor tlen, maar een factor twee 
hoger in waarde. We krijgen nu: 0+2-1=1. 

De accumulator kan een getal van 0 tot FF 
hex bevatten, maar heeft geen plaats voor 
een teken (soms wordt het achtse bit 

als tekenbit genomen, dit laten we nu 

buiten beschouwing). Wanneer het getal in 
de accu kleiner is dan het getal dat er 
van wordt afgetrokken gaat de accu via 0 
weer door naar FF (want de accu kan geen 
negatieve getallen bevatten). De carry- 
flag wordt geset om aan te geven dat het 
verkregen antwoord niet meer juist is. 

Vb 2. In de accu worden de getallen 

00110100 en 10000001 van elkaar 
getrokken: 

00110100 (34 hex) 

10000001 (81 hex) 

10UQ011 (83 hex) 

Het achtste bit raoet een "1" lenen bij het 
negende bit om 0+2-1=1 te kunnen uitvoe- 
ren. Dit negende bit is echter niet aanwe- 
zig, zodat de uitkomst foutief wordt. De 
carry-flag wordt daarom geset. 


De Z80 kent twee instrukties voor het 
binair aftrekken; SUB en SBC. Dit zijn de 
tegenhangers van ADD en ADC. Bij SUB wordt 
de inhoud van een register of 8-bits getal 
afgetrokken van de inhoud van de accu. Bij 
SBC wordt de inhoud van een register of 
een 8-bits getal en de carry-flag (die 0 
of 1 is) van de inhoud van de accu 
afgetrokken. De uitkomst wordt weer in de 
accu geplaatst. 

Vb. 91 SUB A,C ; reg A = reg A - reg C 

D651 SUB A,51 ; reg A = reg A - 5Ibex 

9C SBC A,H ; reg A - reg A - reg H 

-carry-flag 

DE12 SBC A,12 ; reg A = reg A - 12hex 

-carry-flag 

Wanneer IJ bij het uitgewerkte voorbeeld 
uit les 2 "80 ADD A,B" vervangt door 
"90 SUB A,B", kunt U de werking van de 
SUB instruktle zelf onderzoeken. Wanneer U 
in dit programma "88 ADC A,B” vervangt 
door "98 SBC A,B" wordt, naar gelang de 
carry-flag geset is of niet, de inhoud van 
geheugenplaats E103 0 of FF. Bij ADC A,B 

was dit 0 of 1. Kunt U dit verklaren? 

Vaak doet zich de situatie voor dat we 
een register met 1 willen ophogen of ver- 
lagen, bijvoorbeeld wanneer het als teller 
dienst doet. We kunnen elk van de 8-bits 
registers met 1 ophogen met de instruktle 
INC (increment). 

Vb. 1C INC E ; reg E - reg E + 1 

Met 1 verlagen wordt gedaan met de in- 
struktie DEC (decrement). 

Vb. 05 DEC B ; reg B = reg B - 1 

Omdat het rekenkundige instrukties zijn 
(net als ADD en SUB), wordt de zero-flag 
geset wanneer een register door de TNG of 
DEC instruktle 0 geworden is, en de 
carry-flag bij een sprong van 0 naar FF of 
omgekeerd. 

Wanneer het een te grote beperking is dat 

een register slechts de getallen 0 tot FF 
kan bevatten, kan gebruik worden gemaakt 
van de 16-bits registers van de Z80 (het 
IX- en IY- register) of kunnen de regis¬ 
ters B, C, D, E, H en L worden samengeno- 
men tot registerparen BC, DE, en HL. Een 
16-bits register kan getallen van 0 tot 
FFFF (65535 dec) bevatten. 16-bits regis¬ 
ters kunnen bij elkaar worden opgeteld, 
van elkaar worden afgetrokken en gebruikt 
worden ora een (16-bits) geheugenadres aan 
te wijzen waarnaar data moet worden 
geschreven of waarvan moet worden gelezen. 
Wanneer gebruik wordt gemaakt van het 
registerpaar BC, kunnen de registers D, E, 

H en l naar keuze als losse registers of 
als registerparen worden gebruikt. De 
8-bits registers B en C gebruiken in de 
Z80 dezelfde geheugenplaatsen als het 
registerpaar BC. Het registerpaar BC en de 
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8-bits registers B en C kunnen dus niet 
onafhankelijk van elkaar gebruikt worden. 

Er zijn bij 16-bits load instrukti.es drie 
typen te onderscheiden. Let U goed op dat 
U deze niet met elkaar verwart. Een hulp- 
middel hierbij is, dat U steeds wanneer U 
"( )" ziet, dit vertaalt in "met de inhoud 
van". Dus (BC) wordt: "met de inhoud van 
registerpaar BC" 


Vb. 3680 LD (HL),80 ; het register Hi 

wijst een geheugenadres aan, dit 
geheugenadres wordt gevuld met 
de data "80". 

0A LD A,(BC) ; reg A wordt ge¬ 

vuld met de data van het adres 
dat BC aanwijst. 

70 LD (HL),B geheugen 


1. Een 16 bits register (zoals BC, DE, HI, 
IX en IY) laden met een 16-bits getal 
(voorgesteld door ran): LD rr ,mn 

Deze instruktie vertoont veel gelijkenls 
met de instruktie LD r,n (bijv LD C,20), 
alleen wordt in dit geval geen acht-bits 
getal in een acht-bits register geplaatst, 
maar gaat het om 16-bits getallen en 

registers. Een typische eigenschap van de 
Z80 is, dat deze eerst de laagstwaardige 
acht bits (LSB = Least Significant Byte) 
inleest en daarna pas het hoogstwaardige 
gedeelte (MSB ■ Most Significant Byte). 
Dit kwamen wij in les 2 ook tegen bij de 
instruktie: LD A,(mn). 


reg B 50 
reg HL EOOO 



XX 

BFFF 

50 

EOOO 

XX 

E001 


HL wijst geheugenplaats EOOO aan. Deze 
geheugenplaats wordt gevuld met de in¬ 
houd van register B (50). 

De 16-bits register IX en IY hebben nog 
een extra mogelijkheid wanneer zij als 
pointer dienst doen. Deze registers bevat- 
ten niet direct een geheugenadres dat moet 
worden aangewezen, maar de registerinhoud 
wordt eerst opgeteld bij een 8-bits getal 
d (displacement - verschuiving). 


Vb. DD7705 LD (IX+5),A geheugen 


Vb. 018040 LD BC,4080 
DD211000 LD IX,0010 

2. De instruktie LD rr,(mn) is de 16-bits 
tegenhanger van LD A,(mn). Bij de in¬ 
struktie LD rr,(mn) wordt het 16-bits 

register gevuld met de inhoud van ge¬ 
heugenplaats "mn" en "mn+1" (de inhoud van 
een geheugenplaats is een 8-bits getal, 
zodat de inhouden van twee geheugenplaat- 
sen nodig zijn om een 16-bits register te 
vullen). “mn+1" is hier weer het MSB, "mn" 
het LSB. 

Vb. ED5B00E0 LD DE,(E000) ; registerpaar 

DE wordt gevuld met de in¬ 
houd van adres EOOO en E001. 

3. De instruktie LD (mn),rr is het otnge- 
keerde van de hierboven behandelde 

instruktie. Nu worden twee geheugenplaat- 
sen, nl "mn" en "mn+1" gevuld met resp. de 

laagste- en de hoogste 8 bits uit een 
16-bits register. 

Vb. FD2A1080 LD (8010),IY; geheugenplaats 

8010 wordt geladen met het 
LSB- en geheugenplaats 801A 
met het MSB van register IY. 

Een 16-bits register kan gebruikt worden 
ora een adres aan te wijzen waarnaar data 
moet worden geschreven of data van moet 
worden gelezen; het wordt dan gebruikt als 
"pointer". Twee speciale pointer-registers 
zijn we al tegengekomen: de programcounter 
(die de volgende machinetaalinstruktie 
aanwijst) en de stackpointer (die de 
laatst toegevoegde informatie op het 
kladblok aanwijst). Doordat 16-bits regis¬ 
ters als pointer kunnen worden gebruikt is 
het mogelijk geheugenblokken te verplaat- 
sen, te kopieeren in een ander geheugenge- 
bied of een geheugengebied eenvoudig met 
een getal te vullen. Van deze mogelijkheid 
van de Z80 wordt veel gebruik gemaakt, 
bijvoorbeeld in machinetaal tekstverwer- 
kers en databases. 


reg A 30 ^ 

reg IX 8800 8800+5 -> 


Bij 16-bits rekenkundige bewerkingen kan 
de 8-bits accu niet meer dienst doen als 
rekenregister. De funktie wordt dan 
overgenomen door HL, IX en IY (alles wat 
met registerpaar HL kan, kan ook met IX en 
IY, de registerparen BC en DE hebben 
minder mogelijkheden). Verder komen de 
16-bits optelling (ADD, ADC) en aftrekking 
(SUB, SBC) overeen met de gelijksoortige 
8-bits instrukties. De 16-bits instrukties 
INC en DEC verschillen van de 8-bits equi- 
valenten doordat bij 16-bits INC en DEC 
instrukties geen vlaggen worden geset. 

Wordt bijv. register IX door INC IX opge- 
hoogd van FFFF naar 0000 dan reageert de 
Z-flag hier niet op! 

Machinetaal is, doordat geen gebruik 
wordt gemaakt van de interpreter, veel 
sneller dan Basic. Deze tijdwinst is voor- 
al merkbaar wanneer een bepaalde opdracht 
herhaald moet worden uitgevoerd. We kunnen 
iedere keer dat de opdracht wordt uitge¬ 
voerd een teller ophogen. Wanneer deze 
teller een bepaalde waarde bereikt wordt 
uit de lus gesprongen. 

De "normale" JP-instruktie (jump=sprong) 
instruktie is te vergelijken met GOTO in 
Basic, er wordt naar een geheugenadres ge¬ 
sprongen, waar de computer verder gaat met 
het lezen van machinetaal-instrukties. 

Vb. C300DO JP D000 ; spring naar geheugen¬ 
adres D000 

If-then construkties uit Basic worden in 
machinetaal vervangen door : JP v, mn ; 
spring, als aan voorwaarde v is voldaan 
naar geheugenplaats mn. Zo'n voorwaarde 
waarop de Z80 kan testen is een vlag die 
- geset of juist gereset moet zijn. 
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XX 

8804 

30 

8805 

XX 

88061 




















Vb. C20080 JP NZ,8000 ; spring, als de Z- 

flag gereset is (NZ=non zero) 
naar geheugenadres 8000. 

CAFE90 JP Z,90FE ; sprong als Z=1 

DAAOAA JP C,A0AA ; sprong als C=1 

D200D0 JP NC.DOOO ; sprong als C=0 

Wanneer we willen kijken of de inhoud van 

de accu en een ander 8-bits getal overeen- 
komen, raaken we gebruik van de instruktie 
CP (compare=vergelijken). Deze instruktie 
is eigenlijk een speciaal soort SUB in- 
struktie; bet getal of register wordt van 
de accu afgetrokken, de vlaggen worden ge- 
set, maar bet antwoord komt niet in de 
accu te staan, maar gaat verloren. Als 
twee getallen gelijk ztjn, wordt na een 
CP- instruktie de Z-flag geset. 

Vb. ON A GOTO 8000,9000 in macbinetaal: 

CP 1 ;als reg A=1 dan wordt de Z- 

JP Z,8000 flag 1 en de sprong gemaakt 
CP 2 ;reg A bevat nog steeds de 

JP Z,9000 oude waarde dus kan direct 

de volgende test plaatsvin- 
den. 

Net als in MSX-Basic, kan ook in Z80 
macbinetaal gebruik worden gemaakt van 
subroutines. Deze worden aangeroepen met 
CALL (G0SUB in Basic) de subroutine wordt 
verlaten met RET (RETURN in Basic). Wan¬ 
neer de Z80 een CALL instruktie tegenkomt, 
wordt eerst de inhoud van de prograracoun- 
ter op de stack (bet kladblok) gezet. Bij 
RET wordt dit adres weer van de stack ge- 
haald, zodat de computer "weet" waarheen 
moet worden teruggesprongen. Behalve de 
gewone CALL en RET instruktie, kent de Z80 
ook nog CALL v en RET v. Wanneer aan de 
flag-voorwaarde (Z, NZ, C, NC) is voldaan, 
wordt de subroutine aangeroepen, of terug¬ 
gesprongen naar bet hoofdprogramraa. 

Vb. DC0080 CALL C,8000 ; CALL 8000 wordt 

uitgevoerd als de C-flag 1 is. 
C8 RET Z ; RET vindt plaats 

als Z = 1. 

De eerste 16K van bet ROM-geheugen van 
een MSX-machine bestaat uit zeer doordacht 
geprogrammeerde macbinetaal subroutines, 
bet BIOS genaamd (Basic Input/ Output Sys¬ 
tem). Dit BIOS kent twee bestaansredenen. 
Ten eerste dient bet om de machinetaalpro- 
grammeur te verlossen van programmeer- 
problemen die in ieder programma voor- 
komen, zoals bet inlezen van een toets en 
bet op bet scherm plaatsen van tekst. Ten 
tweede geeft het aan MSX-fabrikanten de 
mogelijkheid bun machine anders te maken, 
zonder direct buiten de MSX-norm te val- 
len. Wanneer de BI0S-R0M wordt aangepast 
aan de aangebrachte veranderingen is de 
computer weer MSX-compatible (behalve wan¬ 
neer programmeurs buiten dit BIOS om wet- 
ken) . Door een aantal BIOS-CALL's achter 
elkaar te plaatsen, met tussendoor enkele 
macbinetaal instruktles, zijn al zeer 
fraale effecten te bereiken. Martin Buysse 
gaat in een andere rubriek in dit blad 
dleper op BIOS-CALL's in. 


Nu volgen nog enkele programma's die wat 
mogelijkheden van machinetaalprogrammeren 
laten zien. Probeert U eens 


D000 210000 LD HL,0 ;Hl=teller 
D003 110100 LD DE,1 ;met 1 ophogen 
D006 19 ADD HL,DE jophoging 
D007 D206D0 JP NC,D006;teller <= FFFF? 

;ja dan doorgaan 

D008 C9 RET ;nee dan naar Basic 

In dit programma wordt HL als teller 
gebruikt. Steeds wordt registerpaar DE 
(met als inhoud 1) erbij opgeteld. Wanneer 
de carry-flag 1 wordt is HL van FFFF naar 
0000 gesprongen en moet de optelling 
beeindigd worden. Er is geen gebruik 
gemaakt van INC HL, omdat deze instruktie 
geen vlaggen aanpast, ADD HL,DE doet dit 
wel. Dit programma illustreert de snelheid 
van macbinetaal, in minder dan een seconde 
wordt van 0 tot 65535 geteld. 

10 DEFINT I: DEFUSR = &HD0O0 
20 FOR 1=&HD000 TO &HD008:READ A$:A=VAL("& 
H"+A$):PORE I,A:NEXT 
30 DATA 21,0,0,11,1,0,19,D2,6,DO,C9 
40 PRINT"tellen in Basic":TIME = 0 
50 FOR I=-32768! TO 32766: NEXT 
60 T=TIME: BEEP‘.PRINT "In" t/50" sec" 

70 A$=INKEY$:IF A$="" THEN 70 
80 PRINT"tellen in M-taal" 

90 A=USR(0) 

100 BEEP:PRINT"klaar!" 


D100 CD9F00 CALL 9F ;ascii-waarde toets 

in accu 

D103 01C003 LD BC,3C0 ;960 bytes in VRAM 
D106 210000 LD HL,0 ;vanaf adres 0 
D109 CD5600 CALL 56 jvullen met toets 
D10C CDB700 CALL B7 ;CTRL/ST0P ingedrukt 
D10F D200D1 JP NC,Dl00;nee? -> vervolg 
D112 C9 RET ;ja ? -> naar Basic 

Het tweede programma laat zien hoe, door 
bet aaneenkoppelen van enkele BIOS-CALL's, 
een heel aardig programma ontstaat. Eerst 
wordt met CALL 9F een toets ingelezen en 
vervolgens worden de eerste 960 bytes in 
screen 0 (40 rijen x 24 kolommen) via 
CALL 56 hiermee gevuld. BIOS-CALL B7 con- 
troleert of CTRL/STOP is ingedrukt; is dit 
het geval dan wordt teruggekeerd naar 
Basic. 

10 FOR I=&HD100 TO &HD112:READ A$:A=VAL("& 

H"+A$):POKE I,A:NEXT 
20 KEYOFF:SCREEN 0:CLS 
30 DEFUSR=&HD100:A=USR(0) 

40 DATA CD,9F,00,01,CO,03,21,00,00,CD,56, 

00,CD,B7,00,D2,00,D1,C9 

MT-PROGRAMMA 3 

D200 21L4D2 LD HL,D214;HL wijst naar le 

letter codewoord 

U203 CD9F00 CALL 9F ;inlezen toets 

D206 BE CP (HL) ;zijn toets & letter 

codewoord gelijk? 

D207 C20000 JP NZ,0 ;nee -> reset 
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D20A 

FEOD 

CP 0D 

;return toets? 

D20C 

C8 

RET Z 

;ja ~> naar Basic 

D20D 

23 

INC HL 

;nee-> wijs volgende 
letter aan 

D20E 

CDA200 

CALL A2 

;correct ingetikte 
letter op scherm 

D21L 

C303D2 

JP D203 

;volgende letter 
testen 

D214 

4D53580D 

;codewoord "MSX" 


Het derde programma laat het gebruik zien 
van de instruktle CP. Bij die programma 
moet een codewoord worden ingetypt. Wordt 
hierbij een fout gemaakt (een kleine let¬ 
ter ipv. een hoofdletter is ook een fout) 
dan reset de computer. De laatste toets 
die moet worden ingedrukt is de return 
toets. Is het gehele codewoorde juist in¬ 
getypt dan kan bijvoorbeeld een Basic 
programma worden gestart. Het codewoord is 
verborgen als ASCII getallen vanaf adres 
D214. Nu is de codetekst MSX<return>. Deze 
tekst mag ook langer dan drie karakters 
worden gemaakt, maar moet steeds eindigen 
op OD (de ASCII-waarde van <return>). 

10 FOR I=&HD20Q TO &HD217:READ A$:A=VAL("& 
H"+A$):P0KE I,A:NEXT 

20 DATA 21,14,D2,CD,9F,0,BE,C2,0,0,FE,0D, 
C8,23,CD,A2,0,C3,03,D2,4D,53,58,0D 
30 CLS:PRINT "typ codewoord in:" 

40 DEFUSR = &HD200:A-USR(0) 

50 PRINT:PRINT"door test gekomen" 


Tot de volgende keer; 

Marc Spierenburg 

De ZBO itieset 


8-bits load instructies 




A 

E 

C 

D 

E 

H 

L 

(HD 

ClX+d) 

(IY+d) 

n 

LD 

A, 

7f 

7B 

77 

7A 

7B 

7C 7D 

7E 

DD7Ed 

FD7Ed 

3En 

LD 

B, 

47 

4D 

41 

42 

43 

44 

45 

46 

DD46d 

FD46d 

06n 

LD 

C i 

4F 

4S 

49 

4A 

4E 

4C 4D 

4E 

DD4Ed 

FD4Ed 

OEn 

LD 

D, 

57 

50 

51 

52 

53 54 55 

56 

DD56d 

FD56d 

lAn 

LD 

Ei 

5F 

58 

59 

5A 

5E 

5C 

5D 

5E 

DB5Ed 

FD5Ed 

lEn 

LD 

Hi 

67 

60 

61 

62 

63 

64 

65 

66 

DD66d 

FD66d 

26n 

LD 

L, 

6f 

6B 

69 

6A 

6E 

6C 

6D 

6E 

DD6Ed 

FD6Ed 

2En 

LD<HL>, 

77 

70 

71 

72 

73 

74 

75 


DD76d 

FD76d 

36n 




A 


B 


C 


D 

E 

H 

L 


LDt!X+d>, DD77d DD7Dd DD71d DD72d DD73d DD74d DD75d DD36dn 
LD<lY+d)» FD77d FD7Qd FD71d FD72d FD73d FD74d FD75d FD36dn 


LD A,(EC) DA 
LD A,(DE) 1A 
LD A,(mn) 3A*m 


LD CEO,A 02 LD A, I ED57 

LD <DE)iA 12 LD A,R ED5F 

LD (n»n),A 32nm 


LD I,A ED47 
LD R,A ED4F 


B-bits rekenkundige en lnqische beuerkinogn 




A 

E 

C 

D 

E 

H 

L 

(HL) 

(iX+d) 

ciY+di 

n 

ADD 

Ai 

87 

80 

81 

82 

83 

64 

85 

86 

DD86d 

FD86d 

C5n 

ADC 

A, 

EF 

80 

39 

6A 

8B 

8C 

8D 

8E 

DDSEd 

FDSEd 

CEn 

SUB 

A t 

97 

90 

91 

92 

93 

94 

95 

96 

DD96d 

FD96d 

D6n 

SEC 

A, 

9F 

9B 

99 

9A 

9B 

9C 

9D 

9E 

DD9Ed 

FD9Ed 

DEn 

AND 

A, 

AT 

AO 

Al 

A2 

A3 

A4 

A5 

A6 

DDA6d 

FDA6d 

E6n 

X0R 

A i 

AF 

A8 

A9 

AA 

AB 

AC 

AD 

AE 

DDAEd 

FDAEd 

EEn 

OR 

A, 

B7 

BO 

B1 

B2 

E3 

B4 

E5 

B6 

DDB6d 

FDB6d 

F6n 

CP 


BF 

B8 

B9 

BA 

BB 

EC 

ED 

BE 

DDE Ed 

FDEEd 

FEn 

INC 


3C 

04 

DC 

14 

1C 

24 

2C 

34 

DD34d 

FD34d 


DEC 


3D 

05 

□D 

15 

ID 

25 

2D 

35 

DD35d 

FD35d 



16-bits load instrukties 


LD 

EC,(mn ) 

ED4Bnm 

LD 

(ran) i 

BC ED43nra 

LD 

BC,mn 

OlllFtl 

LD 

DE, (ffin) 

ED5Bnm 

LD 

(m n), 

DE ED53nm 

LD 

DE,mn 

11 nm 

LD 

HL,(ran > 

2Anm 


LD 

(mn) t 

HL 22nm 

LD 

HL,mn 

21 nm 

LD 

IX, (tun) 

DD2Anrtj 

LD 

(ran), 

IX DD22mn 

LD 

IXimn 

DD21nm 

LD 

IY,Corn) 

FD2Ana 

LD 

(run >, 

IX FD2Anm 

LD 

IY ,nm 

FD21njri 

LD 

SP,(mn) 

ED7Btim 

LD 

(mn), 

SP ED73ntn 

LD 

SP,mn 

31nm 

LD 

SP, HL 

F9 


LD 

SP,JX 

DDF9 

LD 

SP, IY 

FDF9 


AF 

BC 

DE 

HL 

IX 

IY 




PUSH F5 

C5 

D5 

E5 

DDE5 

FDE5 




POP FI 

Cl 

D1 

El 

DDEl 

FDE1 





^6-bits rekenkundiqe instrukties 




BC 

DE 

HL 

SF 

IX 

IY 

ADD 

HL, 

09 

19 

29 

39 



ADD 

IX, 

DD09 

DD1? 


DD39 

DD29 


ADD 

IY, 

FDG9 

FD19 


FD3? 


FD27 

ADC 

HL, 

ED4A 

ED5A 

ED6A 

ED7A 



SBC 

HL, 

EB42 

EDS 2 

ED62 

ED72 



INC 


03 

13 

23 

33 

DD23 

FD23 

DEC 


DB 

IB 

2E 

3R 

DD2B 

FD2B 


Jump* call en return instrykties 


Vooruiaa r deli jk 


condities 

c 

NC 

I 

NZ 

PE 

PO 

P 

M 

JP Vitun 

DA fin 

D2nra CAnm 

C2nn 

EAnrn 

E2nn 

FAnra 

F2n* 

JR v, e 

38e 

30e 

2Be 

20e 





CALL 

Vi ran 

DCnm 

D4nm CCnm 

C4nit 

ECnn 

E4n« 

i FCnra 

F4n* 

RET ’ 

V 

DB 

DO 

CS 

CO 

EB 

EO 

FQ 

FO 

Onvooruaandel i jk 







JP mn C3nra 


JR e 

IBe 


DJhtZ lQtr 

JP <HL) E9 


JP (IX> 

DDE 1 ? 


JP 

(IY) FDE9 

CALL 

mn CDmn 


RET 

C9 





RETI 

ED4D 


HEIN 

ED45 





Rqt&er en 

insirukties 







A 

B 

C 

D E 

H 

L 

{UD 

(IX+d) 

UY+d) 

RLC 

CB07 

CBQQ 

CB01 

CB02 CB03 CB04 

CEOS 

CB06 

DDCBdOA 

FDCBd06 

RRC 

CBOF 

CB08 

CB09 

CBOA CEOB CEOC 

CP-CD 

CBOE 

DDCBdOE 

FDCBdOE 

RL 

CB17 

CB1D 

CEIl 

CB12 CB13 CB14 

CB15 

CB16 

DDCBdl6 

FDCBdli 

RR 

CB1F 

CB18 

CBI? 

CB1A CB1B CB1C 

CB1D 

CB1E 

DDCBdlE 

FDCBdlE 

SLA 

CB27 

CB20 

CE2L 

CB22 CB23 CB24 

CB25 

CB24 

DDCBd26 

FDCBd26 

SRA 

CB2F 

CB28 

CB29 

CB2A CB2B CB2C 

CB2D 

CB2E 

DDCBd2E 

FDCBd2E 

SRL 

CB3F 

CS38 

CB39 

CE3A CB3B CB3C 

CB3D 

CB3E 

DDCBd3E 

FDCBd3E 

RLD 

ED6F 


PRD 

ED67 


RLCA 07 


RRCA 

OF 


RLA 

17 


RFW> 

i IF 



ffianipulatie 








CB^xxyyyzzz t bin.) 


TEST ’Bit’ 

i xx^Ol 

RESET ’lit’ 

i xx=10 

SET *Bit , s 

xx=i i 

yyy= te testen bit (0 t/* 7 *= 000 t/ro 111 

bin*) 

zzz= registerf A=1I1 

B=OOQ C*=001 D=010 

E=0I1 H=1Q0 


L=101 





In en out 

instrukties 




IN A, n 

DBn 

IN A, <U 

ED78 

IN E, (Cl 

EDAO 

IN C, <C) 

ED 48 

IN D, CO 

ED50 

IN E.(C) 

ED5E 

IN H,(C) 

ED60 

IN L,(C) 

ED68 

INI 

EDA2 

INIR 

EDB2 

IND 

ED A A 

INDR 

EDBA 

OUT A,n 

D3n 

OUT A, CC) 

ED79 

OOT Si(C) 

ED41 

OUT Ci (C) 

ED49 

OUT Pi (C) 

ED51 

OUT £,(C) 

ED59 

OUT H,(C) 

ED6t 

OUT L, (C) 

ED69 

OUT! 

EDA3 

OTIR 

EDB3 

OUTD 

EDAB 

OTDR 

EDBB 

Overige instrukties 





EX AF,AF’ 

D8 

EXX 

D9 

EX DE,HL 

EB 

EX (SP1,HL E3 

EX (SP),IX DDE3 

EX (SP),IY FDE3 

LDI 

EDAO 

LDIR 

EDBO 

LDD 

EDA8 

LDDR 

EDB8 

CPI 

EDA1 

CPIR 

EDB1 

CPD 

EDA9 

CPDR 

EDB9 

DAA 

27 

CPL 

2F 

NE6 

ED44 

CCF 

3F 

SCF 

37 

NOP 

00 

HALT 

76 

DI 

F3 

El 

FB 

IMO 

ED46 

IM1 

ED55 

I M2 

ED5E 

RSTO 

C7 

RST8 

CF 

RSTiO 

D7 

RST1S 

DF 

RST20 

E7 

RST28 

Er 

RST30 

F7 

RST39 

FF 






BOEKEN 


PROGRAMMEERCURSUS MSX BASIC 


Daar werd ik toch wel even stil van; wat 
een fraai boek. Maar liefst ruim 380 
pagina's luxe papier en toch niet 
overdreven dik. Nog mooier is de inhoud. 

Hier is een doorgewinterde BASIC kenner 
aan het schrijven gegaan. Vrijwel alles, 
waar ik in de loop der jaren in de diverse 
bladen over heb geschreven, wordt hierin 
behandeld. Een echt leerboek voor diegenen 
die de basiskennis hebben en die nu goede 
programma's 'in BASIC willen leren 
schrijven. 

De basisfunkties van de rekenkundige 
bewerkingen komen aan de orde; inclusief 
de schrijfwjze en de volgorde van be- 
handeling door de computer. Bij het 
hoofdstuk over tekst worden de pro- 
gammavariabelen, de getalvariabelen en de 
tekstvariabelen uitvoerig behandeld. Zeer 
uitgebreid wordt ingegaan op de lus- 
structuren (de geneste lussen worden flink 
uitgespit). Heel goed en doordacht (en 
voor heel veel BASIC programmeurs hard 
nodig) is het gedeelte over gestructureerd 
programmeren. Verder vinden we veel infor¬ 
mat ie over de in- en uitvoeropdrachten, 
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gegevens- en tekstverwerking, gegevens- 
verwerking met cassette en diskette en 
uitvoerig worden de keuzestructuren be- 
handeld. 

Nog enthousiaster word ik bij bet lezen 
van het hoofdstuk over het inkorten en 
versnellen van programme's, waarbij een 
sorteerroutine als voorbeeld is genoraen. 
De snelheid van deze -elders in het boek 
geplaatste- sorteerroutine wordt van 90 
seconden teruggebraeht naar 38 seconden. 
Verder staat vrijwel alles in dit boek wat 
noodzakelijk is otn goede en professsionele 
BASIC programme's te schrijven. Een groot 
voordeel hierbij is dat ook de DISK-BASIC 
wordt behandeld. Op de specifieke MSX 
mogelijkheden (geluids- en grafische 
instructies) wordt niet of nauwelijks 
ingegaan maar hiervoor zijn al raeer dan 
genoeg boeken in de handel verschenen. Dit 
boek kan dan ook prima gebruikt worden 
voor programmeurs vam 'normale' Microsoft 
BASIC en voor de MSX programmeurs rnaakt 
het niet uit of met de MSX 1 of 2 wordt 
gewerkt. 

De listings komen bijna allemaal direkt 
van een printer zodat, wat betreft dit 
gedeelte, zetfouten niet kunnen voorkomen. 
Zover ik heb kunnen vaststellen komen er 
toch al zeer weinig fouten voor in dit 
boek; en dat is bij de meeste boeken wel 
ande rs. 

De programmavoorbeelden zijn zeer goed 
gekozen en veel hiervan is bruikbaar (al 
dan niet na enige aanpassingen) in eigen 
programme's. Alle hoofdstukken worden 
afgesloten met oefeningen, waarvan de 
antwoorden en resultaten achter in het 
boek terug te vinden zijn. Tevens achterin 
het boek een lijst met gereserveerde MSX 
BASIC woorden, de ASCII codes, de video¬ 
codes, de besturingsopdrachten en een 
lijst met de foutmeldingen. 

Het Is geen makkelijk boek en een basis- 
kennis van BASIC is wel noodzakelijk, maar 
verder is dit het beste BASIC leerboek dat 


ik -tot nu toe- in handen heb gehad. Ik 
beveel het dan ook zonder meer aan aan 
iedereen die serieuze plannen heeft om in 
BASIC te gaan programmeren en alle inzen- 
ders van programma's aan de diverse 
tijdschriften zouden dit boek eigenlijk 
moeten lezen. 

Het boek is een uitgave van ACADEMIC SER¬ 
VICE en is geschreven door Nok van Veen. 
De verkoopprijs bedraagt 45,= 



BASIC BOEK VOOR MSX COMPUTERS 


Dit is een heel ander boek. Het boek is 
tamelijk oppervlakkig en vrij moeilijk. Er 
wordt erg veel gewerkt met rekenkundige en 
wiskundige bewerkingen zodat het voor 
lezers die zich daarmee bezighouden best 
interessant is. Opmerkeljk is het werken 
met stroomdiagrammen (flowcharts). 

Voor wie zich hiermee (b.v. voor een 
studie) bezighoudt kan het best de moeite 
waard zijn dit boek eens nader te bekij- 
ken. Ook komen de grafische- en geluids- 
instructies aan de orde en -evenals bij 
het vorige boek- worden alle hoofdstukken 
afgeslotem met vraagstukken waarvan de 
antwoorden weer aan het eind van het boek 
terug te vinden zijn. 

Disc BASIC wordt niet behandeLd en tekst- 
en gegevensverwerking komen weinig aan de 
orde. De listings komen weer keurig 
rechtstreeks van de printer; dus ook hier 
weinig kans op fouten. 

Het boek is een uitgave van Uitgeverij 
MAKLU en is een vertaling van het boek 
'Computer programming in MSX BASIC' van 
L.E. Carter en E. Huzan. 

De prijs is fl. 39,50 en hiervoor krijgt 
men 176 pagina's tekst en listing- 
voorbeelden. 

A.Debels. 


46 
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FIRST STEPS 


Dit is software voor de allerkleinste 
coraputeraars onder ons. Het programma is 
geschikt voor kinderen van 4 tot 8 jaar. 

De ouders zullen wel moeten helpen, want 
de software komt uit Engeland en de 
handleiding is dan ook in het Engels. Wel 
is deze handleiding gemaakt voor kinderen, 
dus met grote letters en leuke gekleurde 
plaatjes. Er staan 4 spellen in het 
programma. Het eerste spel is een doolhof 
spel waarbij Mr. Greedy, een dikbuikige 
snoeper, naar de ijsjes geloodst dient te 
worden. Uiteraard zijn de doolhofjes zeer 
eenvoudig (slechts enkele vakken) en ruim 
opgezet met dikke lijnen. 

Bij het tweede spel (Mr. Silly's hat game) 
is het de bedoeling het gevraagde hoedje 
(juiste model met juiste kleur) op het 
hoofd van Mr. Silly te plaatsen. Alle 
hoedjes komen 2 tot 3 keer voor op de 
hoedenplank. Uiteraard weer heel eenvou¬ 
dig. lets lastiger, maar dan ook bedoeld 
voor de iets ouderen in de bovengenoemde 
leeftijdsgroep is een heel simpel memory 
spel, dat in twee variaties gespeeld kan 
worden. Het eer.ste memory spel werkt 
alleen met afbeeldiigeni schoenen , laarzen 
sokken, schaatsen e.d. 'moeten bij elkaar 
gezocht worden. Ook weer heel simpel: de 
kinderen moeten bun keuze doen aan de hand 
van het model; alle kleuren zijn gelljk. 
Bij het tweede raemoryspel moeten letters 
bij elkaar gezocht worden. Verder geldt 
voor dit spel hetzelfde als voor het 
vorige memory spel. A1 met al heel aardig 
voor de kleintjes. De software staat op 
cassette en komt van Mirrorsoft. De prijs 
is redelijk (FI. 39,00) de handleiding is 
fraai uitgevoerd. Voor sommigen kan het 
een bezwaar zijn dat deze laatste in het 
Engels geschreven is. 



Beeid * * * * 
Geluid* * * * 
Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * * 

***** ZEER GQEO 
*•*• GOED 
*** REDELIJK 
** MATIG 

* SLECHT 


SUPER PUZZLE 

Super puzzle is ook weer voor het hele 
gezin. Het is een schuifpuzzel; door het 
verschuiven van de stukken moet het 
plaatje weer in orde gebrac.ht worden. Er 
zijn weer drie variaties. Een heel een- 
voudige puzzel, een middelgrote en een 
hele moeitijke* De eenvoudigste versie is 
weer geschikt voor kinderen en de moei- 
lijkste versie is uiteraard niet geschikt 
voor de hele kleintjes. De plaatjes zijn 
leuk en ook dit spel is zijn geld weer 
waard. De puzzels staan op cassette en 
deze komt weer van Morwood. De prijs is 
FI. 34,95. Het wordt misschien vervelend, 
maar weer een Engelse handleiding. 



Foutafhandeling 

Gebruiksgemak 


Documentatie * * * * 

Prijs * * * * 
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SUPER MAZE 



Software voor het hele gezin; voor kinde- 
ren van 6 tot 100, 

Super Maze ls een super mooi spel. Gra- 
fisch ziet het er fantastisch uit. De 
geluiden zijn prima en, doordat verschil- 
lende moeiLijkheidsgraden gekozen kunnen 
worden Is dit spel zowel geschikt voor 
kinderen als voor volwassenen. Zelfs wij, 
als doorgewinterde spellentesters, hebben 
toch nog lol gehad aan dit spel. In het 
spel moet je een zoekgeraakt vriendje zien 
te vinden. Voor onderweg krijg je drie 
glazen limonade raee en tijdens het drinken 
van een glas wordt, op een tweede scherm, 
het doolhof met de te volgen route 
tijdelijk zichtbaar gemaakt. Dit kan uit- 
eraard maar drie keer; dus niet meteen 
alles opdrinken. De wegen door het dorp 
liggen elke keer anders dus de route kan 
niet opgeschreven worden of uit het hoofd 
worden geleerd. Het eerste doolhof is 
klein en eenvoudig; hier kunen ook kleine 
kinderen aan meedoen. Het tweede doolhof 
is iets groter en het derde .is echt al 
moeilijk. Dit laatste spel Is dan ook niet 
geschikt voor de hele kleintjes. Het spel 
staat op cassette en wordt geleverd door 
Morwood. De prijs Ls FI. 34, 75 en dat is 
goedkoop voor een spel met zulke kwali- 
teiten. De handleiding is weer in het 
Engels. 

Beeld * * * * * 

Geluid * * * * 
Spelkwalitelt * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

, Prijs ***** 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 


NUMBER PAINTING 


Weer super software voor kinderen. Het 

spel is geschikt voor kinderen van 5 tot 
14 jaar en grafisch ziet het er fantas¬ 
tisch uit. Het is een rekenspel met 
optellen, aftrekken, vermenigvuldigen en 
delen tot getallen van max. 999. De 

eenvoudigste ronden -voor de kleintjes- 

hebben alleen optelsommen tot 10, 20 of 

aan dit spel is, dat het re¬ 
in een klimspel. Met lad- 

naar de getallen worden 
een druk op de spatlebalk 

moet een getal gekozen 


30. Het leuke 
kenen gebeurt 
dertjes moet 
gegaan en met 
(of vuurknop) 


worden. Het is de bedoeling dat een 

gevraagd getal —op deze wijze- met + en - 
cijfers samengesteld wordt. Er zijn 3 
"levens" en het spel is gebonden aan een 
tijdslimiet. Er is erg veel aandacht 
besteed aan de sprites. Wanner een 

antwoord fout is, schudt een poppetje 
"nee" met zijn hoofd en bij een goed 
antwoord knikt het "ja'. Ook het klimmen 
wordt heel reallstisch uitgebeeld; 
hele lichaam beweegt bij 
neergaan van de ladders, 

sprong zakt het poppetje 

knieen! Heel erg leuk om te 

mooi is de mogelijkheid 
correctie uit te voeren wanneer het 
teveel naar links staat; druk 
en het beeld staat goed in 

Dat is zeker een compliment 
adres van ASK software, die 
cassette heeft uitgebracht. 

FI. 39,= en hiervoor krijgt 
nog een fraaie (weer Engeise) handleiding. 


het 

op- 

en 

Zelfs 

na 

een 

even 

door 

de 

zien. 

Helemaal 

m een beeld- 

eer het beeld 

k op 

de 

knop 

he t 

midden!! 

waard 

aan 

het 

dit 

spel 

op 

De 

prijs 

is 

men 

dan 

ook 


Beeld * * * * * 
Geluid * * * * * 
Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 

Prijs * * * * * 

***** ZEER GOED 

**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 
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DE SMIT ’ CORONA FASTEXT-80 


Deze keer behandelen we bij de hard- 
waretest een standaard Centronics printer: 
de Fastext 80 van Smith Corona. Hoewel een 
standaard Centronics printer niet de vol- 
ledige MSX-karakterset kan afdrukken (de 
in de vorige nummers geteste Philips en 
Trend printers kunnen dit wel) heeft deze 
printer een groot voordeel: een zeer goede 
prijs/prestatieverhouding. Voor fl.400,— 
a fl. 500,— is deze printer overal in Ne¬ 
derland te koop. 

De Fastext 80 heeft ongeveer hetzelfde 
forraaat als uw MSX-computer (b*d*h = 
40*25*10 cm) en is uitgevoerd in de 
kleuren matzwart en gebroken wit. Aan de 
voorzijde bevinden zich een "power on" 
lampje en een "on/off line" schakelaar. De 
aan/uit schakelaar bevindt zich aan de 
achterzijde, evenals een dipswitch, waar- 
mee een extra regelopvoer na iedere Return 
kan worden verkregen. Verder heeft de 
printer een handel voor keuze tussen 
frictie- en tractortransport en een grote 
knop om papier door te draaien. Deze 
laatste rooet vaak worden gebruikt, want 
een line-feed (regelopvoer) en formfeed 
(nieuwe pagina) toets ontbreken. 

De meeste printers uit deze prijsklasse 
zijn niet erg degelijk gefabriceerd. De 
Fastext 80 vormt hierop een uitzondering: 
het loopwerk van de printerkop en beide 
stappenmotoren zijn op een metalen chassis 
bevestigd. Er is netjes gebruik gemaakt 
van schroef-met-moer bevest igingert, zelf- 
tapschroeven die in het plastic worden 
gedraaid zijn zoveel mogelijk vermeden. De 
draden naar schakelaars e.d. zijn door 
middel van connectors op de printplaat ge- 
monteerd. Kortom: op de afwerking is niets 
aan te merken. 

Nu de raoge1ijkheden van deze printer. Deze 
zijn minder uitgebreid dan van de in de 
vorige MSX-Gidsen beschreven printers, 
maar gezien het prijsverschil is dat ook 
niet zo verwonderlijk. 



De printer start op met Picaschrift (10 
tekens per inch). Picaschrift kan de 
Fastext printen met een snelheid van 80 
tekens per sekonde. Dit schrift is ideaal 
voor het maken van listings. Door middel 
van Escape codes is het mogelijk twee 
andere lettersets te kiezen: Elite (12 
tekens per inch) en Condensed (17 tekens 
per inch). Alle drie de lettersets kunnen 
bovendien tweemaal vergroot worden 
weergegeven. Het is ook mogelijk stukken 
tekst of losse letters te onderstrepen. 
Hoewel de speciale MSX-karakters niet 
aanwezig zijn, zijn accent-letters en 
diverse symbolen wel uit de internationale 
lettersets (waaronder Nederlands) te 
verkrijgen. 

De printer heeft de beschikking over twee 
grafische modes (60 of 72 puntjes per 
inch), waarbij ieder printerpennetje apart 
kan worden aangestuurd. De regelopvoer Is 
variabel in te stellen van 1/72 tot 85/72 
inch. 

De Fastext-80 werkt met lintcassettes. 
Volgens de beschrijving gaan deze l 
miljoen tekens mee. De cassettes kosten 
fl. 15,— en worden verkocht per set van 2 
stuks. U kunt voor fl. 150,— een 
tractorfeed hulpstuk bij deze printer 
kopen, waardoor het scheeflopen van 
kettingformulieren wordt voorkomen. Wan- 

neer u losse vellen papier gebruikt, wordt 
het printen onderbroken op ca. 2 1/2 cm 

voor het einde van het papier, 
online/offiine-toets kunt u nog 
regels extra printen. Tot op 1 era 
onderrand trekken de regels niet 
Losse vellen papier zijn daardoor goed 
gebruiken op deze printer. 


Met de 
enkele 
van de 
scheef! 
te 


Een punt waarover nog niet gesproken is, 
is de printerkabel. Omdat dit niet een 
specifieke MSX-printer is, is deze niet 
bijgeleverd. De kabel is echter overal 
verkrijgbaar en u kunt natuurlijk ook uw 

eigen kabel maken, zoals beschreven in de 
MSX-Gids nr.l. 


CONCLUSIE. 

De Fastext-80 is een vriendeli 
prijsde, degelijke printer met 
afdrukkwaliteIt. Het aantal mogel 
is beperkter van van zijn 
broers:"near letter quality", 
(schuin geprinte tekst) en super¬ 
script ontbreken. De printmogeli 
die de Fastext-80 wel heef 
kwalitatief net zo goed als van 


jk ge- 
goede 
ijkheden 
grote re 
italics 
en sub- 
jkheden, 
t zijn 
duurdere 
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printers. Bovendien is het een snelle 
printer! 80 karakters per sekonde, bidi- 
rektLoneel (print in beide richtlngen) en 
logic seeking (slaat gedeelten met alleen 
spaties over). Omdat het geen echte 
MSX-printer is, kunnen de speciale MSX- 
karakters (de grafische tekens, Griekse 
letters e.d.) niet worden afgedrukt. 
Hoofdietters, kleine letters, cijfers en 
leestekens worden echter probleemloos op 
papier gezet. 


Deze printer is een goede keuze voor wie 
een 80-koloms printer voor listings zoekt 
en voor degene, die een snelle printer 
naast zijn daisywheelprinter wil hebben. 
Hopelijk komt voor deze printer een ROM in 
de handel met de speciale MSX-karakterset. 
De Fastext-80 is dat waard!!!! 

Marc Spierenburg. 
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Dit is het PICA - schrift. Wanneer de printer opstart war cl t 
dit let ter type gesel ecteerd. Het uiordt geprint met 80 karak¬ 
ters per seconde. 

lets kleiner (12 tekens per inch) is het Elite- schrift dat d.m.v. een 
ecape-code kan warden gekozen. 

'Condensed* heet dit kleine letter type, uiaarbij 137 tekens op een regel passen. 

Alledrie de lettertypes kunnen twee keer zo groat warden 
tiieer gegeven - 

IP i. cz .,~n — SB- cr Jh‘n *-’■ i IF ce- in 1 l tt- *ns? cri 

Eli t e? — -eb Fi r i. F t enlarged 

Condensed — enlarged geeft een vettere en iets 
grotere letter dam Pica-schr if t. 

l e11ers of woor d en kunnen wor den on der str eept. 


G r a f i s c h e w e e r g a v e e n t e k s t 


zijn vrij te combinerens 
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X IM T EE R IM A T X O IM A L_ 
DE NOODZAAK BLIJFT. 


De Spectravideo X' Press herjboren 

De Spectravideo X' Press is reeds 
enige t i. jd op de markt. U heeft tijdens de 
introductie van deze computer in versehil- 
lende bladen kunnen lezen dat het niet 
zomaar gaat om de zoveelste MSX computer. 
Naast de standaard MSX aansluitingen is de 
X' Press voorzien van een ingebouwde 3.5" 
disk drive (360K geformatteerd). Deze 
drive is volledig compatible met elke 
andere 3.5" SS MSX-diskdrtve. Tevens is de 
computer voorzien van een aansluiting voor 
een tweede diskdrive (3.5" of 5 1/4") en 
een RS-232-C interface. 

Bovenstaande feiten zijn voor de doorge- 
winterde MSX'er die graag op de hoogte 
blijft van de nieuwe ontwikkelingen na- 
tuurlijk niets nieuws. Waarom dan toch dit 
artikel? 


Bij de eerste geleverde exemplaren van 
deze computer bleek dat de diskdrive pro- 
blemen gaf. Deze problemen zijn nu niet 
meer aan de orde. De diskdrives behoren 

tot de snelste en doen hun werk voor 100 
procent nauwkeurig. Dit is vooral te dan- 
ken aan de nieuwe Disk ROM die in de 
definitieve versies werd ingebouwd. 

Mensen die in het bezit zijn van een X" 
Press van de "oude" serie kunnen reeds 
sinds enige tijd gebruik maken van de 
uitstekende service van Electronics Neder¬ 
land (de importeur van SpectraVideo). 

De oude MSX-DOS/Disk BASIC en CP/M schij- 
ven kunnen worden ingestuurd en deze wor¬ 
den dan kosteloos voorzien van een 80- 
kolorumen BASIC (vgl. MSX-2), Disk R0M- 
verify programme's, snellere CP/M etc. 

De meest In het oog springende extra is 
echter het tekstverwerkingspakket Word¬ 
star /MaiEmerge. Deze tekstverwerker, die 
bovendien geheel Nederlandstalig is, heeft 
een aanschafprijs die dicht bij de prijs 
van de X' Press ligt (1799,-). Hiervoor 
krijgt u echter de computer + Wordstar/ 
Mailmerge +- de SV 7700 monochrome monitor. 
Wordstar is een van de meest toegepaste 
tekstverwerkerkingssystemen. De mogelijk- 
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Update: 


heden van het programma zijn zeer uitge- 
breid. Gelukkig is het programma voorzien 
van een prima Nederlandstalige handlei- 
ding, zodat u vrijwel direct gebruik kunt 
maken van deze mogelijkheden. Zelf gebruik 
ik het programma dagelijks en het heeft 
nog nooit het gevoel bij me opgeroepen dat 
ik iets extra's nodig zou moeten hebben. 


Het CP/M 2.2 Operating system 

Het is dankzij dit CP/M, dat de X' Press 
in staat is om met prograoima's als Word¬ 
star te kunnen werken. CP/M was nl. tot 
voor kort het operating system voor de 
zakelijke gebruiker. Dit is door de korast 
van MS-DOS wel wat veranderd. Vrijwel alle 
huidige zakelijke toepassingen worden ge- 
daan op een IBM of compatible (vgl. Bond- 
well, Advance etc.). Dat wil natuurlijk 
nlet zeggen dat CP/M nu niet goed meer zou 
voldoen. Integendeel! Wanneer u geen snel- 
le grafische toepassingen nodig heeft, 
zoals bij tekstverwerking, spreadsheets 
(multiplan), databases (dBase-11), pro- 
grammeertalen (Turbo Pascal, Fortran, PLl 
etc.) kunt u het prima af met C'P/M. 

SpectraVideo levert voor de X' Press bij- 
voorbeeld het gehele Micropro software 
pakket. Dit pakket bevat het reeds bespro- 
ken Wordstar/MaiLmerge, Datastar (data¬ 
base), Calcstar(spreadsheet) en reportstar 
(rapportering). U kunt hiermee bijvoor- 
beeld in datastar een adressenbestand 
creeeren, dat u dan m.b.v. van reportstar 
keurig laat afdrukken op labels en m.b.v. 
mailmerge kunt u de adressen boven stan- 
daardbrieven laten plaatsen. 

COMPATIBILITEIT BINNEN CP/M 

De X' Press is, mits de 2e drive van het 5 
1/4" formaat is, in staat om alle onder 
CP/M 2.2 werkende programma's van de Kay- 
proll, Osborne I, Bondwell 12/14/16 en SVI 
328/728 formaat in te lezen en te gebrui- 
ken. Standaard kunnen alleen via de inge- 
bouwde drive CP/M programma's van de Bond- 
well 02 (3.5") en de X' Press zelf worden 
gebruikt. 

Datacoramunicatie 


De importeur heeft ons medegedeeld dat 
binnen afzienbare tijd een speciaal voor 
de X' Press ontwikkeld Nederlandstalig 
communicatie programma wordt uitgebracht. 
Dit programma (genaarad X' Press TALK) 
stelt de X' Press gebruiker in staat ora, 
werkende onder een 80-kolommen scherm, te 
communiceren met de gehele wereld. Het te 
gebruiken modem wordt rechtstreeks aan de 
RS-232-C connector van de X' Press aange- 
sloten. 


Op het laatste moment kwam bij ons het 
bericht binnen dat de SpectraVideo X' 
Press vanaf heden ook leverbaar is met het 
complete Micropro CP/M software pakket 
(Wordstar/Mailmerge, Datastar, Reports La 
en Calcstar) in het Nederlands voor de 
prijs van HF 1998,- inclusief monochr<un- 
monitor . 

Dit is naar onze mening een prijs die zeer 
scherp genoemd mag worden en waarschijn- 
lijk een flinke klap zal betekenen voor de 
concurrentie. 


Voor nadere inlichtingen: 

ELECTRONICS NEDERLAND 
Afd. SpectraVideo, 
Tijnmuiden 15-19, 

1046 AK AMSTERDAM. 

Tel. 020-139960. 
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20 
30 
40 
50 
60 
70 
80 
90 
100 
1 1 0 
120 
1 30 
140 
150 
160 
. 17 0 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 

370 

380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
6 5 o 
660 
670 
680 
690 


REM 

REM 

REM 

REM 


CHRt DOOR: 

H.SMEENGE JR. 
ESSCHENBRUGGERDIJK 1 
7742 P.C. COEVORDEN 


MET DIT PROERAMMA KAN EEN CHRt-WAARDE 
OMGEZET WORDEN NAAR EEN ASCCI-WAARDE 

EN ASCII-WAARDES KUNNEN OMGEZET WORDEN 
NAAR DE BIJBEHORENDE CHRt-CODE 




It 

•t 

tl 

II 


CLS:SCREENO:COLOR1,14:WIDTH37:CLEAR100:KEYOFF 
PRINT:PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

LOCATE,10 

PRINT"! chr$":PRINT 

PRINT"2 roeerdere chr $ ’s"sPRINT 

PRINT"3 ASC (code *s) " : PRINT 

PRINT"4 stop":PRINT 

LOCATES,20:PRINT"MAAK UW KEUZE" 

Xt=SPACEt(31 > +"CHRt+ASC(code' 5 ) en ASC(code's)+CHR$ 
FOR I=1T0LEN(X$) 

L.0CATE2,3: PRINTMID* ( X*, 1,31) 

L0CATE2, 3: F0RJ = 1T0100: NeXTJ 
Q$=INKEYt:IF Q*=""THENNEXT 
IFQ$="1"THEN360 
IFQ$="2"THEN450 
I FQt= "3"THEN590 
IF Q$="4"THEN690 
GOTO 270 
CLS 

INPUT'*CHR$(code):";C 
IF C=0 THEN 140 
CLS 

VPOKE19,C 

PRI NT"CHRt("C")=ASC <"+CHRS(34) 

LOCATE19,O:PRINTCHRS(34)")" 

LOCATE B, 10: PRINT ,, 0=terug naar menu" : PRINT 
GOTO 370' 

CLS 

LOCATES,10:PRINT"0=teruq naar menu":PRINT 
PRINT:INPUT" EERSTE CHRt(code)“;E 
IFE=OTHEN140 

PRINT:INPUT"LAATSTE Chr*(code)";L 
FORI=ETOL 

CL S 

VP0KE19,I 

PRINT"CHR$< "I")=ASC("+CHRS(34) 

LOCATE 19,O:PRINTCHR*(34 >")" 

FDRW“1T0500:NEXT 
NEXT 

LDCATEB,10:PRINT"O*terug naar menu":PRINT 

GOTO 470 

CLS 

INPUT"ASC(code)" 5 AS:PRINT 

IF "00"THEN140 

CLS 

PR I NT "ASC < "+CHR$ (34) ; At; +CHRt (34)'*)="; 

IF VPEEK(7)>31 THEN PRINT"CHR*<" ;ASC<A$);")": 

IF VPEEK< 7)<32THENPRINT"CHRt(1)CHRS(";VPEEK(7)+64;") 
PR I NT 

LOCATES,10:PRINT"00=terug naar menu":PRINT 
GOTO 600 
CLS:END 


II 


J t 
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ONTWIK.KELINGEN OP MSX-GEBIED. 

De ontwikkeling van de wereldstandaard, 
die MSX is, c.q. zou moeten zijn, schijnt 
*iets trager te verlopen dan menig fervent 
MSX-computer hobbyist heeft verwacht. Als 
voorbeeld noetnen we de reeds lang aange- 
kondigde MT programme's, weIke tot op 
heden nog niet verkrijgbaar waren. 

Tevens allerlei randapparatuur en featu¬ 
res, zoals de door Aackosoft aangekondigde 
'Wizzard Robot' en de in diverse bladen 
vermelde MSX muis zijn tot nu toe nog niet 
op de Nederlandse markt verschenen. 

Met de software gaat het ook niet zo vlot 
als menigeen zich had gewenst; MSX-2 is al 
sedert enkele maanden volop leverbaar, 
maar de voor deze machine nuttige software 
zoals boekhoudprogramma's, faktuur, kas- 
boek, tekstverwerking, databases etc. zijn 
nog niet te koop. Ook spellen, die spe- 
ciaal geschikt zijn voor het uitgebreide 
videogeheugen van deze op ztch prachtige 

MSX-machines zijn niet op de markt. 

Wei heb ik enkele staaltjes mogen aan- 
schouwen van spelprogramraa's, die zullen 
gaan verschijnen voor de MSX-2 machines. 
Ik hoop dat dit niet al te lang meer op 
zich zal laten wachten, omdat anders de 
kans bestaat, dat de op zich unieke MSX- 
standaard zich toch de loef laat afsteken 

door de andere sterke computermerken zoals 
Atari en Commodore en dat zou voor vele 

gemotiveerde en enthousiaste MSX-aanhan- 
gers een diepe teleurstelling betekenen. 


Er zijn in Nederland genoeg clubjes MSX- 
hobbyisten, die wel iets voor de nieuwko- 
mers kunnen betekenen. Ook zijn er wel 
bedrijven, die goede en interessante spul- 
len op de markt brengen voor MSX (a] duurt 
het soms wat lang) maar het MT-TELCOM 
modem met ingebouwde software bijvoorbeeld 
is er nu eindelijk. Na uitgebreid hiermee 
te hebben gewerkt, kan ik rustig stellen, 
dat professionele datacommunicatie met de 
MSX-computer raogelijk is geworden voor een 
hobbyprijs van fi. 699, —. Ik ken geen 
enkele andere homecomputer, waarvoor zo'n 
schitterend communicatiepakket beschikbaar 
is* Een pluim voor de makers! 

Nieuwe boeken verschijnen er met de regel- 
maat van een klok, o.a. van de firma 
Stark, die kwalitatief goede literatuur 
levert voor de MSX-gebruiker. 

Ook sommige bladen leveren vaak zeer inte¬ 
ressante informatie. Alleen jammer, dat de 
meeste nooit op tijd in de winkel liggen 
(uitgezonderd natuurlijk dit blad, dat u 
altijd op de beloofde datum in de winkels 
ziet verschijnen, maar dat wist u vast 
al). (NvdR: we doen ons best, maar dat wil 
natuurlijk niet zeggen, dat het nooit eens 
mis kan gaan.) 

MSX-ers, ik wens jullie nog veel prettlge 
uurtjes achter je machine toe en voor 
diegenen, die liever van het hopelijk 
mooie weer genieten een mooie zomer en 
prettige vakantie. 


Uit dit alles kunnen wij concluderen, dat 
ook in de horaecomputerwereld stilstand 
achteruitgang betekent en wil MSX het als 
wereldstandaard goed blijven doen en 
nieuwe hobbyisten aan zich weten te bin- 
den, dan zullen er op korte termijn ook 
nieuwe dingen -zoals Interfaces voor scha- 
kellngen en besturingen, rauizen, robots en 
gebruikerssoftware- op de markt moeten 
koraen. 

De sedert lange tijd bestaande MSX-Werk- 
groep heeft ook op dit gebied nog wel het 
een en ander te doen, al laten zij de 
laatste tijd niet al te veel meer van zich 
horen. Maar ja, misschien is de buit al 
binnen. 

Wat betreft de andere clubs: ook hleraan 
schort er naar mi in idee nog wel het een 
en ander. Van diverse mensen heb ik verno- 
men, dat het bij sommige clubs alleen voor 
de vergevorderde interessant is aanwezig 
te zijn op clubavonden. Keren bestuursle- 
den: bier ligt een taak voor u. Er zijn 
vele MSX-gebruikers, die pas met de compu- 
terhobby zijn begonnen en die ook een 
beetje op steun en informatie van de di¬ 
verse clubs zijn aangewezen. 

POSITIEF. 

Uiteraard is het niet alles negatief, wat 
de klok slaat. Er zijn ook zat leuke en 
goede dingen te beleven met uw MSX-compu¬ 
ter, dus laat u niet uit het veld slaan 
door dit misschien wat negatief overkomend 
artikel. 


K.WESTERA. 


*********** LET OP *********** 
* * 

* MSX-Gids nr. 1,2 en 3 zijn * 

* * 

* UITVERKOCHT ! * 

********* ******* ************** 
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Pyi^©i van d® maand 


-hrijf voor onder-/ nevenstaand figuur een zo kort mogelijke procedure. Als je denkt een 
one ie:e oplossing te hebben, stuur die dan aan : LOGO CENTRUM EDE, Anrradaal 96 6715 JC 
Voor de meeste originele oplossing is een aardige attentie beschikbaar. 



Als je een procedure schrijft waarin het volgende voorkomt: 
drukaf [ tel : 080 - 238130 ] 

en hij is gedefinieerd , dan verschijnt het volgende: tel: 80 - 238130 
Vraag : waar is de eerste nul van 080 gebleven ? Hoe los je dat probleem op ? 

Als je er echt niet uit komt, dan draai je dat nummer maar, dan krijg je de oplossing. In ieder 
geval komen we de volgende keer met de oplossing voor de mensen die niet durven bellen. 



I 

■ 



ten leuk programmaatje wat je zelf kunt uitbreiden en aan je eigen fantasie kunt aanpassen 
5 dialoog, Pjoeter stelt je een vraag, en pakt jouw antwoord op in ztjn reactie. 

Als Is denkt een hele leuke uitbreiding of verandering te hebben bedacht, stuur hem ons: de 

leukste zullen we publiceren, 


?leer dialoog 

ss drukaf [ik heet Pjoeter.] wacht 150 ss 

drukaf [ hallo, hoe heet ji ?j smurf 1 M steeds 

drukaf [hoe heet jouw woonplats ?] smurf2 II steeds 

drukaf [ hoe oud ben je /] smur(3 II steeds 

drukaf [ hoe vind je LOGO ?] smurf4 II steeds 

drukat [ wat is je lievelingseten ?] smurfs II steeds 

drukaf [ in welke sport ben je het best ?] smurf6 II steeds 

drukaf [ wat is je leukste hobby ? ] smurf7 II steeds 

drukaf [ stop je ermee ? ] smurfS II steeds 

drukaf [ daar ben ik niet bfij mee ] wacht 150 ss 

drukaf [ tot ziens, bekijk het maar....] wacht 150 ss 

eind 

?leer sleeds 
drukaf [ ] 
wacht 150 ss 
eind 



De procedure steeds, wacht op een input (dat wat er geantwoord wordt op de vraag) met II 
Osama zorgt drukaf[] dat er een regel wordt overgeslagen voordat het antwoord van Pjoeter 

komt. 

Dat antwoord moet wacht 150 wachten voordat eerst het schema wordt schoon gemaakt. 

De volgende pro cedures zijn de antwoorden van Pjoeter. 

?Ieer smurfl :antw 
ss typ :antw drukaf [ , ] drukaf [ ] 
drukaf [ wat leuk je te voeten] 
eind 

?leer smurf2 :antw 

ss drukaf (zin [tjeetje, woon jlj in ] :antw) 

eind 

?leer smurf3 :antw 

ss drukaf ( zin [ je ziet er jonger uit dan] :antw ) 

eind 

?leer smurf4 :antw 

ss drukaf ( zin [oh, vind jij logo] :antw ) 

eind 

?leer smurfS :antw 

ss drukaf (zin [ gatsie ik lust geen] tantw ) 

eind 

?leer smurfS :antw 

ss drukaf (zin [ nou nou, :antw [ , ][ toe maar... ] :antw ) 

eind 

?leer smurf7 :antw 

ss drukaf ( zin [ik wou dat ik dat kon] :antw ) 

eind 

?leer smurf8 :antw 

ss drukaf ( zin [ waarom zeg je nou] :antw 

eind 


Om grappen te bedenken met :antw, en niet steeds het hele programma te moeten doorioperjut 
je oefenen met een oefenprocedure: 

?leer smurfx tantw 

drukaf (zin [ } :antw } 

eind 

Typmr. 

?smurfx II (smurf+2*de letter el) 

dan wacht Pjoeter op een input (II- lees lijst) voor :antw 

Als u ook een leuke puzzel heeft bedacht stuurt u hem maar op: LOGO Centrum Ede, 

Annadaa! 96 6715 JC Ede 

De leukste zullen we in deze rubriek opnemen. 

Tot de volgende keer 
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Listing controle programma 2 


DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR.3 

DE LISTINGS UIT GIDS I EN 2 NIET MET DEZE 
TESTER CONTROLEREN! 

De Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad overnemen. 
Met dit programma publiceren wi j een 
kontrole-telling van de programmaregels 
en, wanneer u een programma heeft 
overgenoraen , kunt u dan -ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed. 

MSX-BASIC kent twee statements voor regels 
die alleen kommentaar bevatten: namelijk 
het REM-statement en regels die beginnen 
met Beide regels hebben over het 

algemeen geen invloed op de werking van 
het programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die ti jdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkelijk 
vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de roeeste programme's 
geplaatst kan worden. U toetst dit 

programma in en kontroleert het met 

zichzelf door regelnummer 65170 te laten 
vervalien. 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAStTESTER" op cassette 

worden gezet. (Wel eerst regel 65170 weer 
opnemen!!). 

Het programma wordt dan als ASCII-file op 
de band gezet. 

Niet wegschrijven met "CSAVE”!! 

U gebruikt verder dit programma als volgt: 

U tikt het programma, dat u wilt hebben in 
en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 
dan alles opnieuw worden ingevoerd! Daarna 
kan met MERGE "CAS:TESTER” het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma's, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 
Voor het laden van het testprogramma moet 
de instruktie 'MERGE' worden gebruikt en 
niet LOAD! (Dus MERGE "CAS:TEST ER"). Bij 
gebruik van LOAD komt de Listing tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen omgewisseld worden, zal de tester 
toch een goede telling geven! Bij het 


omwisselen 

van letters 

in BASIC- 

inst rukties 
geconst at eerd. 

wordt 

wel 

ee n f o u t 

Een controle 

telling 

wordt 

alteen hi i 

grote -of 

ingewikkelde- 

programma's 

1 ‘C 


geplaatst. 


Baildftchermi WIDTH 37 


65000 ' **#*##*#####*###*#**### 

65010 ’ * LISTING TESTER 2 * 

65020 ’ * Door Alfred Debels * 

65030 > * (c)19S6 De MSX Gids * 

65040 ’ * Amsterdam * 

65050 p *******##***####*##*##* 

65060 p 

65070 CLS:CLEAR:SCREEN 0:WIDTH 40!PRI 
NT 

650B0 PRINT "Weergave via beeldscherm 
of printer?” 

65090 PRINT SPRINT "B of P?s " 

65100 X$=INKEY$!IF X*<>"B" AND X*<>"P 
" THEN 65100 
65110 START ss 32769! 

65120 RG=START+2s T=0 

65140 VR=PEEK(START)+256*PEEK(START+1 
) 

65150 NR*PEEK(RG)+256*PEEK(RG+1) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000! THEN 65290 
65180 S=0:FOR I=RG+2 TO VR-1 
65190 A=PEEK(I) 

65210 IF A=143 THEN I»VRlBOTO 65240 
65230 S= 5+A: NEXT 
65240 S=SM0D256 
65250 T=T+S 

65260 IF X$=”B" THEN PRINT USING "Reg 
el:##### - ###'’!NR,S: GOTO 65280 
65270 LPRINT USING "Regel:##### - ### 
"sNR,S 

65280 START=VR: RG=VR+2sG0T0 65140 
65290 IF X*“"P M THEN 65310 
65300 PRINT!PRINT "Totaali "|Ts END 
65310 LPRINT "Totaal: "jTi END 


Regeli65000 

— 

58 

Regel!65010 

— 

58 

Regel: 

65020 

— 

58 

Regel: 

65030 

— 

58 

Regel t 65040 

— 

58 

Regels 

65050 

— 

58 

Regel!65060 

— 

58 

Regeli 

65070 

— 

1 wt 1 

Regel: 

650BO 

— 

129 

Regel t 

65090 

— 

32 

Regel! 

65100 

— 

5 

Regel: 

65110 

— 

23 

Regel: 

65120 

— 

200 

Regel: 

65140 

— 

133 

Regel t 

65150 

— 

147 

Regel: 

65160 

— 

132 

Regeli 

65180 

— 

201 

Regels 

65190 

— 

96 

Regelt 

65210 


234 

Regel: 

65230 

— 

164 

Regels 

65240 

— 

173 

Regel: 

65250 

— 

219 


Regel:65260 - 167 
Regeli65270 - 13 
Regels65280 - 136 
Regel:65290 - 239 
Regel!65300 - 233 
Regel:65310 — 42 
Totaals 3275 








HCC MSX gg 
Postbus 51 
26 50 A A Nootdorp 


MSX GEBRUIKERSGROEPEN 


de mini gids 

tn deze rubrlek kunnen onze lezers advertentles 
plaatsen, mits NIET VAN COMMERCtELE AARD! Handela- 
ren kunnen onze advertent Ie+arI even aanvragen. 

De redak+Ie behoudt zfcb het recht voor adverten¬ 
tles voor deze rubrlek te weigeren. Inzendingen 
kunnen gestuurd worden naar Postbus 10252, 1001 EG 
Amsterdam en dienen voorzien te zijn van naam, 
adres en evt, telefoonnummer. Advertentles met 
alleen postbusnummer of an+woordrummer worden nlet 
opgenomen. 


TE K00P: 

TOSHIBA portable kleuren T.v. / monitor. 

II cm, beeldbuis. p AL systeem. Werkt zowel 
op 220 Volt als op 12 Volt. 

FI. 450,= 

Tel. 020-527464 


MSX gg. 


West-Brabant 


Pijnboomstraat 10 
4731 AT Oudenbosch 


"De Leke" 
p/a Fred De Winne 
Lekestraat 33 
9900 Eeklo Belgie 

YAMAHA CX5 gebruikersgroep 
p/a Coen van Splunder 
Diepenbroek 87 
5991 PT Baarlo 
Tel. 04707-3348 


RKILFN: 

MSX insteekmoduLe 'TRACK A FIELD’ hyper- 
olympic van Konami. Tel. 040-858832. 

Bellen tussen 15,30 en 17,30 uur en vragen 
naar Frank Maximus. 


????? Wit; HELP! ????? 


TILBURGSE MSX GEBRUIKERSGROEP 

Azuurweg 92 

5044 KD Tilburg. 

MUG MSX gebruikersgroep 
Christiaan Rakow 
Minervalaan 81 
1077 NT Amsterdam 
Tel. 020-766493 


G.Kock uit Doetinchem gebruikt zijn 
computer vooral voor wiskundige toepes- 
singen. Hij wil niet-lineaire functies 
direkt invoeren. Op de Commodore 64 is dit 
-met een foefje- mogelijk. Kan dit ook op 
de MSX? Wie heeft een oplossing of een 
programmaatje am deze functies direkt in 
het geheugen weg te schrijven. 


MSX GEBRUIKERSGROEP UDENH0UT EN 0MSTREKEN 

p/a Wil van Aarle 

Armhoef 33 

5071 VW Udenhout 

MGU M5X gebruikersgroep Uden 
Ini. Carlo van Hout. 

Tel: 08859-2950 


AANGEB0DEN: 

PHILIPS VG 8020 MSX Computer + discdrive + 
2 megabyte software op disc. 

FI. 1300,= 
tel:05410-11180 


MSX-club Belgie-Nederland 
p/a Mottaart 20 
3170 Herselt 8elgie 


MSX-CLUB-FLEV0 
Schouw 53-45 
82^2 XJ Lelystad 




Een abonnement is voordeliger 


en je mist geen nummers! 


EEN ABONNEMENT K0ST 
DOOR OVERMAKING VAN 
AMSTERDAM. 


FL . 
DIT 


40,= PER 6 NUMMERS EN IS TE 
8EDRAG OP GIRO 5036011 T.N.V 


VERKRIJGEN 
J . H E R P S T E 


VOOR BELGIE: 8FR. 750 OP BANKREKENINGNUMMER 235-0430464-87 BIJ 
DE GENERAL E 8ANKMAATSCHAPPIJ TE HASSELT T.N.V. J.HERPS, 
AMSTERDAM. 


Gi robetaalkaarten 
achterzijde in te 
Uitgeverij H E R P $ , 
Tel. inlichtingen 


of Eurocheques (vergeet niet het nummer op de 
vutlen) kunnen gestuurd worden naar: 

Postbus 10252, 1001 EG Amsterdam. 

over abonnementen en losse nummers: 020-327464 
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SERIEUS 

TASWORD MSX - DE tekstverwerker! 100 X 
Nederlandse verbaling en handteiding. 64 tekens par 
regel, dus u ziet op het scherm wat er op papier 
korat. Diskversie ook op de cassette! cass f 95,00 

H S X - 6 4 PLUS Nu met uitgebreide hand- 
leiding en grote—Letter-routine ingebouwd. Werk in 
uw eigen programme's met 64 i.p.v. 40 letters per 
regel, Voor disk en cassette, cass f 34,50 

ZES EDUC ATI EVE PROGRAMMA f S 
Waarin heL spel—e1ement een belangrijke rol speelt. 

Het gaat over een doolhof, een verfkanon of een 
vliegende schotel, maar ook over 'Gptellen en 
aftrekken' (1), 'Cijferend Vermenigvuldigen 1 (2), 
"Procenten 1 (3), 'Geld 1 (4), "Deelsommen 1 (5), en 
het 'Alfabet 1 (6). Prijs per stuk: cass f 34 t 5Q 

DRIE-IH“EEN - Driemaal edukatieve soft¬ 
ware op een (!) cassette: Aardrijkskunde (met grote 
kaart van Nederland), Rekenen en Tekenen, f 34,50 

REDEKUNDIG 0NTLEDEN - Niet mals 
edukatief programme. Met de theorie en meer dan 120 
oefeningen over de hele reeks: van onderwerp t/m 
bijwoordelijke bepaling. Goed! cass f 59,00 


SOFTWARE 


FIL0TEL — Onze databank is 24 uur per dag 
bereikbaar voor iedere *Viditeller 1 (050—145174). 


BRIDGE - Nederlands bridgeprogratnma, gemaakt 
door een bridgeleraar, speelt op behoorlijk nivo, 
maar is ook geschikt voor beginners. cass f 59,00 


H I S 0 F T C++ - Ja, de programmeertaal C ! 
Voldoet, ra.u.v* floatingpoint aan UNIX. Programme's 
in C runnen zonder de compiler en zijn ongewijzigd 
vaak bruikbaar op andere computers* disk f 185,00 


HISOFT DEVPAC - Twee in een voor het 
werken met machinecode. GEN is de krachtige assem¬ 
bler, MON is de monitor en debugger, De diskversie 
werkt ook met MSX—DOS. disk f 185,00 cass f 89,00 


HISOFT PASCAL - Pascal, ook voor MSX! 
M,b.v. deze compiler kunt u zelf programing's in 
Pascal schrijven, en onafhankelijk van de compiler 
runnen, disk (ook MSX-D0S) f 185,00 cass f 134,00 


BESTELLEN - Onze produkten zijn verkrijg- 
bear in de goede computerzaak, maar u kunt ze ook 
rechtstreeks bestellen: telefonisch (050-137746) of 
door storting v,h. bedrag + f 3,50 verz.k* op giro 
20792 t,n,v» Filosoft Postbus 1353 97Q1BJ Groningen 


»t*i**f 


HI 

>H>i* 


1*1**« 


*» * ******* ***** tmm 

H« #•* *11 »*1 lit Mt »■* 

VIV VVI III til It! *■* *** 

VII VM VII *** III tl* +*+ 

MimM tltttiv tint Mm*t 

tttltll . ******* 

****** #*** ****** 


*11VIVI 
VI*VIV 


VIVVI* 
• I 1*11* 

mint 


**+**** I 

vi * w* * 
(tl V 
******* I 
»*«**!* * 
****** * 


*+ 

■* 

ft ft V ft* 

ft ft* 

■ Aft 

*#* 


*+ •*! 

*#* 


Aftft ft ■ 

«#ft 


ft#** 



V#### 

* ft* 


•t 

• ft* 


ft# ■#* 



V* ft* 

Aft* 


## Aft* 

ft ft# 



VI* 


•*** 


] L. WiHemsteeg 12-14, 2801 WC Gouda 


Wi] hebben voor elke MSX de 
juiste printer, o.a.: 

- Seikosha SP 1000 (NLQ) 7 895- 

- Toshiba HXP-550 . ... f 795- 

- Brother M* 11 09 (NLQ) . . 7 695 - 

Bel voor inlichtingen of vraag 
een Print-out! 

Printerkabels uit voorraad . . 7 69,- 


Software: 

Superfile MSX, een pracht bestands- 
programma, Geheel zelf in te richten 
met ruime opslag en uitgebreide prin- 
ter-instellingen. 

Zeer geschikt voor adressen, boeken, 
ptaten of katalogus.7 39- 

Kasboek MSX, met maandtotalen en 
overzichten naarlOO rekeningen apart 
Zeer fraai. .7 39 — 

Div. spelletjes, o.a,: 

Jet Set Willy ..7 19- 

Manic Miner.7 19,— 

Battle Ship., . 7 19,- 


Bestelien d.m.v. vooruitbetaling op 
giro 47 27 958tn.v. Data-Skip, Gou¬ 
da. Of d.m.v. zenden van giro/euro- 
cheque. (U heeft uw bestelling 1 dag 
later in huis.) 


Onze winkel is de gehele week (be- 
halve maandag) geopend. 

Telefoon: 01820 - 20581 


Data-Skip 
L. Willemsteeg 10 
2801 WC Gouda 


HIER HAD UW ADVERTENTIE 

KUNNEN STAAN. 

BEL: 020 - 32.74.64! 
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Ikdaag u uit zelf te ontdekken wat u metde 
NTI-cursus "BASIC voor MSX -homecomputers" 
kunt bereiken. De leerzame, boeiende 
NTI-cursus maakt u helemaal 


vertrouwd metde 
MSX-wereldstandaard. 

Als u de onderstaande bon invult 
en opstuurt, brengt de postbode 
u binnenkort alle inlichtingen. 
Gratis en vrijblijvend. 


Geen speciate vooropleiding 

Om met Net NTI de diepste MSX-homecomputer-geheimen te ontdekken, hebt u 
geen speciale vooropleiding nodig, Evenmin hoeft u al iets van computers en pro- 
grammeren af te wefen* U leert stap-voor-stap. Alle voorbeelden worden meteen in 
oefeningen gebruikt, 

U kunt gewoon thuisblijven 

U volgt de boeiende lessen thuis, dusin uw eigen vertrouwdeomgeving. U oefent op 
uw eigen MSX-hGmecomputer, in uw eigen tempo en op detijdstippen die u het best 
passem Zo leert u op een plezierige manier de MSX-homecomputer volledig naar uw 
hand zetten* 


*■ 
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U krijgt 

een eigen leraar 

Vanaf de eerste les krijgt u hu!p van een 
bevoegde en zeerdeskundige leraar. Hij kijkt uw 
huiswerk na, geeft u goede raad en beantwoordtuw vragen 
Hij pastzichaanbij uw leeftijd, aanlegenontwikkeling. 

Dat is een hele steun in de rug! 


Er zijn nog andere populaire homecomputer-cursussen: 

* BASIC voor de Commodore-64 en128 

* Machinetaal voor de C-64 en 128 

* Homecomputer-PLUS-opleiding 
(BASIC en Machinetaal C-64 en 1 


NEDERLANDS 
TALENINSTITUUT 


Lid van de officiele 
MSX- Werkgroep Nederland 

RechUaad 2 • 4703 RC Roosendaat 


Gratis Kennismakings-Bon 


Aan het NederlandsTalen Instituut 

JA, stuur mij gratis en vrijblijvend van de 
cursus BASIC voor MSX-homecomputers 
het uitvoerige informatie-pakket met kennismakings-les. 

Als ik liever met een andere cursus kennismaak, vul ikdeze hieronder in: 


Ikhebgeen ankete verplichting. Ik mag het pakkethouden, Geen bezoekaan huis. 
□ Dhr, □ Mevr, CMej. (Zo*, aankruisenaub) Een blokletterper streep/e: 


Straat: i i i i i i i i i i . J_ i i t i. i 


Beschikt u niet over 
een MSX-homecomputer ? 

Geenprobleem. Alsu't wilt, levert 
het NT I u de MSX-homecomputer 
van uw keuze bij de lessen. En dit 
voor een uiterst lage prijsi 
U kunt kiezenuit: 


Philips VG-8Q20 


Sony Hit Bit-2D1P Goldstar FC-200 

Uitvoerige informatie over de bij te leveren MSX-homecomputer vindt 

u straks in uw gratis kennismakings-pakket. 


Wilt u gratis kennismaken met een andere cursus? 


Het pakket is gratis voor iedereen van 16 jaar of ouder. 


* 




* 


* Ab vooropleiding is lager 
onderwijs voldoende r behalve 
voor cursussen met een M ervoor 


Off. erk. 

M idden stand sd iplom a 
Oft. erk Boreca-diploma's 
Cafehouder 

Off. erk. Horeca diploma's 
Restauramhouder 
Levend Engels met 
cassettes/platen (beginners) 
Vrij tekenen en schtlderen 
Elektronisch orgel met 
cassettes 
Levend Frans met 
c a ssettes/ pi a t en I beg in ners) 


* IMaaienenknippen vankleding 

* Levend Spaans met 
cassettes/ platen {beginners) 

* Gitaar met cassettes 
(beginners) compleel met, 
of zonder instrument 

* Levend Quits met 
cassettes/platen (beginners) 

* Off. erk Praktijkdiploma 
Soekhouden 

■ Engels voor gevorderden 
(met cassettes/platen) 

* Portable 01 gel/kevboard met 
casse ttes comp! eel met, 

of zonder CASICLMT35 

* Poputaireelektrotechniek 
en elektrcnica 


* Levend Italiaans met 
cassettes/platen (beginners) 

* Eenvoudig 

boekhouden / bedriifsrekenen 

* Populaireautotechniek 

* Praktische psychologic 

* Algemene o ntwi k k eli ng 

* Kinrierve gorging 

* AMBbmodulen B.1 en T.2 
COBOL-programmeur 

* Gitaar voorgevorderden 
(met cassettes) 

* AMBI-modulenLT enl.2 
Basiskennis computerkunde 
voor beroep en bedrijf 

* Kinderverzorging 
en Gpvoedkunde 



































































